Check all rows and delete rows that contain empty cell.

 Sub RowsDelete()
    Dim i As Long
    Dim myRow As Long
    myRow = Worksheets("sheet1").Range("A65536").End(xlUp).Row
    For i = myRow To 1 Step -1
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next i
 End Sub



If you are using libreoffice, add Option VBASupport 1 at the top of the editor.