Codigo que devuelva el numero de celda en

[3pies]

Aquí lo tienes:

Código:

Option Explicit
Dim direccion As String
Dim celda As String
Dim dato() As String
 
Sub prueba()
  'Que no se pare de buscar, hasta que no encuentre una fila vacía
   Do While Not IsEmpty(ActiveCell.Offset(0, 0))
       ActiveCell.Offset(1, 0).Select
   Loop
  'ahora que estaremos parados en la celda vacía,
  'sacamos la dirección de la celda
   direccion = ActiveCell.Address
  'como tenemos una referencia absoluta, del tipo $A$33
  'le quitamos el primer signo del $ para que nos quede A$33
   direccion = Mid(direccion, 2)
  'creamos un vector con 2 elementos que estarán separados por el símbolo
  'del $. Uno será la "A" y otro el "33" (suponiendo que estemos en A33)
   dato = Split(direccion, "$")
  'nos quedamos con el segundo elemento del vector (empieza por cero)
   celda = dato(1)
   ActiveCell = celda
End Sub

Editado: Si te fijas, dato() está definido como una matriz. En realidad contiene dos elementos:

la columna: dato(0)
y la fila: dato(1)

Salu2