I had a simple delete rows macro based on a range summing to nil that worked in testing at home and then it didn't when I really need it to work at work..

Code is:

Sub DeleteEmptyRows()
Dim LastRow As Long
    Dim r As Long
    Dim Counter As Long
    Counter = 0
    'Application.ScreenUpdating = False
    LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1
    For r = LastRow To 4 Step -1
        If Application.WorksheetFunction.Sum(Rows(r)) = 0 Or _
        ActiveSheet.Range("E" & r).Value Like "*" & "Total" & "*" Then
        
            Rows(r).Delete
            Counter = Counter + 1
        End If
    Next r
   ' Application.ScreenUpdating = True
    'DeleteEmptyRows = Counter
    
End Sub
Help please!