Macros con Tablas

Última fila de una tabla considerando que el encabezado inicia en la celda A4:

Opción Corta:

Sub UltimaFila()
MsgBox Hoja1.Range("A4").CurrentRegion.Rows.Count + 4
End Sub

Opción Larga:

Sub ultimafila()
    Dim NombreHoja As String
    Dim HojaDestino As Range
    Dim ultimafila As Double
    
    NombreHoja = "DB"
    Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A4").CurrentRegion
    ultimafila = HojaDestino.Rows.Count + 4
    MsgBox ultimafila
End Sub

Eliminar contenido de tabla:

Sub EliminarTbBaseDatos()
Dim pass As String
Dim pregunta As Integer

If Hoja5.Range("a5") <> Empty Then

    pass = InputBox("Ingrese la contraseña", "Excel Consultor")
    If pass = "11111" Then

        pregunta = MsgBox("¿Está seguro de borrar TODA LA DE DATOS registrada ?", vbOKCancel, "Excel Consultor")
        If pregunta = 2 Then Exit Sub

            Dim HojaDatos As Worksheet
            Dim tabla As ListObject
            Set HojaDatos = ThisWorkbook.Sheets("DB")
            Set tabla = HojaDatos.ListObjects("Tabla1")
            tabla.DataBodyRange.Delete
    Else
    MsgBox "Contraseña incorrecta"
    Exit Sub
    End If
Else
MsgBox "BD sin información"
End If
End Sub