Prueba esto, que es más sencillo que lo que tienes, incluso (para columnas):
Código:
Sub numero_de_columnas()
'Nos situamos en la celda con el primer dato
Range("A1").Select
'Nos desplazamos hasta la última columna adyacente, que contenga datos
Selection.End(xlToRight).Select
'Mostramos el número de columnas
respuesta = MsgBox("Esta hola de cálculo tiene " & ActiveCell.Column & " columnas con datos contínuos.")
End Sub
Y para filas:
Código:
Sub numero_de_filas()
'Nos situamos en la celda con el primer dato
Range("A1").Select
'Bajamos hasta la última fila adyacente, que contenga datos
Selection.End(xlDown).Select
'Mostramos el número de líneas
respuesta = MsgBox("Esta hola de cálculo tiene " & ActiveCell.Row & " filas con datos contínuos.")
End Sub
Salu2