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 letzteZeile Step -1
            If Cells(Bereich, 1).Value Then
                Rows(letzteZeile).Delete
            End If
 
    Next Bereich
End If