Encontrar la ultima fila de una columna con datos

En una rutina de captura en una hoja para grabar en otra del mismo libro tengo el siguiente problema:

Option Explicit
Sub Captura_Datos()
'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
Continuar = MsgBox("Dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
Set TransRowRng = ThisWorkbook.Worksheets("Registros").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1

Con estas dos últimas lineas, me da la primera linea vacía y que también las columnas estén vacías

Requiero que me de la última fila, si la columna "a" esta vacía, no importando si hay datos en las demás columnas.