Mindegy, megoldottam.

Ez törli az üres sorokat:

Sub Sortorles()
    For sor = 1 To Range("A65536").End(xlUp).Row
        Cells(sor, 1).Select
        If Selection.Value = "" Then Selection.EntireRow.Delete
    Next
End Sub