Laatst ingevoerde regel verwijderen

[Luchtsplitser]

Via mijn Userform voer ik data in die telkens op de eerst volgende lege rij plaats.
Nu wil ik eigenlijk op mijn Userform een knop plaatsen waarmee ik de laatst ingevoerde regel weer kan wissen.

Het lukt me om een bereik te wissen, maar niet om telkens specifiek de laatste regel te wissen.

 

[HSV]

Private Sub CommandButton2_Click()
  Worksheets("blad1").Cells(Rows.Count, 2).End(xlUp).EntireRow.ClearContents
End Sub

 

[Luchtsplitser]

Ook dit gaat goed, alleen 1 dingetje:
Kan ik ook voorkomen dat de kop van de kolom (dus de tekst Datum en Kleur) verwijderd kunnen worden?
Ik heb het al geprobeerd dmv het beveiligen van het werkblad, maar dan komt er uiteindelijk een foutmelding.

 

[HSV]

Zo dan?

Private Sub CommandButton2_Click()
    If Worksheets("blad1").Cells(Rows.Count, 2).End(xlUp) = [B3] Then
  Exit Sub
End If
    Worksheets("blad1").Cells(Rows.Count, 2).End(xlUp).EntireRow.ClearContents
End Sub