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!

Try this

Private Sub btnDelete_Click()
    Dim LastRow As Long, LastCol As Long
    Dim RowNo As Long, ColNo As Long
    
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    For RowNo = LastRow To 2 Step -1
        If WorksheetFunction.CountA(Rows(RowNo)) = 0 Then
            Rows(RowNo).EntireRow.Delete
        End If
    Next
    For ColNo = LastCol To 1 Step -1
        If WorksheetFunction.CountA(Columns(ColNo)) = 0 Then
            Columns(ColNo).EntireColumn.Delete
        End If
    Next
End Sub

You might need to change this line

   LastRow = Range("A" & Rows.Count).End(xlUp).Row

to this

    LastRow = ActiveSheet.UsedRange.Rows.Count

in case column A is not the longest column of data.

N.B. this also removes blank columns.

Hope this helps