Delete empty rows

With your test file, remove the two calculations columns (A & B) and then run this...

Private Sub Worksheet_Activate()
    Dim iRow As Long
    Dim r As Range

    Set r = ActiveSheet.UsedRange

    For iRow = r.Row + r.Rows.Count - 1 To r.Row Step -1
        If WorksheetFunction.CountA(r.Rows(iRow)) = 0 Then _
           r.Rows(iRow).EntireRow.Delete
    Next iRow
End Sub