Delete empty rows in range after last used row

Hi,

I'm struggelig to find out how to delete empty rows in range after last used row.
I have a tried it in the current example file.

As you can see there's a list with values. In between some of the lines there are empty ones. They have to stay there. I only want to delete the ones after the last used row.

Could someone help me? This is a part of a bigger file so the range has to be set.

I've tried

For Counter = 2 To 90
        curCell = Range("A" & Counter).Select
        NextCell = Range("A" & Counter - 2).Value
        If NextCell = "" Then Selection.EntireRow.Delete
    Next Counter

It works, somewhat but alot of lines are still there.

Thank you

Sub emptyme()
With ActiveSheet
 .Range("A1", Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(4).EntireRow.Delete
End With
End Sub

Hi,

Thank you for that HaHoBe. That did the trick.