Moro,
Mikä olisi yksinkertaisin ratkaisu, että rivejä 1 - 3 ei tyhjennetä. Tietysti voisi käyttää lisänä If lauseketta mutta onko parempaa ratkaisua?
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("Sheet1")
Set rng1 = ws.UsedRange.Find("*", ws.[a1], xlValues, , xlByRows, xlPrevious)
If Not rng1 Is Nothing Then rng1.EntireRow.Delete
End SubMod. lisäsi kooditagit!
Aihe on jo aika vanha, joten et voi enää vastata siihen.