VBA - Contar columnas llenas

[3pies]

Prueba esto:

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.")
'"fichamos" la celda donde estamos
celda = ActiveCell.Address
'reemplazamos el singo de dólar que nos devuelve el dato anterior
celda = Replace(celda, "$", "")
'eliminamos los números de la fila
numeros = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
For j = 0 To UBound(numeros)
    celda = Replace(celda, numeros(j), "")
Next
'mensajillo
respuesta2 = MsgBox("La letra de la comuna es la, hmmmmm " & celda & ", si no me he equivocado :-)")
End Sub

Salu2