delete entire blank rows

Hi there!

I would like to delete 2 blank rows only before new item.
What i have done is like this:

Private Sub btnDelete_Click()
    Range("1:1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete xlShiftToLeft
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlShiftUp
End Sub

But, this code will delete other rows as well. (You can try in the attachment).
I have more than 2000 line of rows to do it manually.

I'm still new in VBA.
You help are most appreciate. Thanks!