Private Sub CommandButton3_Click()
Dim Weiter, gefunden As Object
 
letzteZeile = [A65536].End(xlUp).Row
Weiter = MsgBox("Wollen Sie den letzten Eintrag wirklich löschen?", vbOKCancel, _
  "Löschen...")
If Weiter = vbOK Then
    For Bereich = letzteZeile To 2 Step -1
        If Cells(Bereich, 1).Value Then
            Rows(letzteZeile).Delete
        End If
    Next Bereich
End If
 
End Sub