letzer Eintrag eines Bereiches finden

Private Sub BtnNewPL_Click()
If TxBIDNew = "" Then
MsgBox "bitte setzten Sie eine ID (Unique) für den neuen Mitarbeiter ein."
End If
' HIER KOMMT PROGRAMMIERUNG FÜR DIE ÜBERNAHME DES NEUEN PL
Dim ws As Worksheet
Set ws = Worksheets("DB")
' sucht jeweils die erste Zeile die leer ist
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("Projektleiter")) + 1
' Füllt die 3 Inhalte des Userforms ab
ws.Cells(newRow, 1).Value = FrmNewPL.TxBNameNew.Value
ws.Cells(newRow, 2).Value = FrmNewPL.TxBIDNew.Value
End Sub