Visual Basic para Aplicaciones - detectar celdas vacias con una macro de Excell

Que tal.
Requiero de saber como le puedo hacer para que en una hoja de calculo me detecte filas que esten con datos. Es decir, voy a tener como entre 400 y 500 filas con datos y necesito saber desde que fila la columna x tiene datos (por ejemplo desde la fila 3) y en que fila la misma columna x ya no tiene datos (por ejemplo hasta la fila 485).
Espero me puedan auxiliar y gracias.

¿Lo que tú quieres es que te muestre las filas que están vacías y las que están con datos o que te muestre el rango de cuales están con datos y cuales están sin datos?

Option Explicit
Private Sub Detectar()
Dim MiColumna As Variant
Dim FilaInicio As Long
Dim FilaFinal As Long
Dim RecorrerFila As Long
Dim Rango As String
Dim Mensaje As String
MiColumna = Val(InputBox("Entre el valor numérico de la columna que quiere recorrer (A=1,B=2,C=3...)", "Columna"))
'Detectar primera Fila con datos
RecorrerFila = 1
Do While IsEmpty(Sheet1.Cells(RecorrerFila, MiColumna)) = True
RecorrerFila = RecorrerFila + 1
Loop
FilaInicio = RecorrerFila
'Detectar última Fila con datos
Do While Not IsEmpty(Sheet1.Cells(RecorrerFila, MiColumna)) = True
RecorrerFila = RecorrerFila + 1
Loop
FilaFinal = RecorrerFila - 1
Range(Cells(FilaInicio, MiColumna), Cells(FilaFinal, MiColumna)).Select
Rango = Selection.Address
Mensaje = MsgBox("El rango que contiene datos es " & Rango & vbCrLf & "El numero de datos es " & RecorrerFila - FilaInicio, vbOKOnly, "Fin")
End Sub