Sub DeleteEmptyRows()
Dim rng As Range
Dim i As Long
Dim LastRow As Long
Dim LastCol As Long
    With ActiveSheet
        LastRow = .Cells(.rows.Count, "G").End(xlUp).Row        'G is the column with the last row of data
        LastCol = .Cells(10, .Columns.Count).End(xlToLeft).Column        '10 is the first row of the range
        Set rng = .Range("A10:H" & LastRow)        'Set the range to the area to be processed
        For i = LastRow To 10 Step (-1)        'Process from the bottom
            'remove the empty rows
            If WorksheetFunction.CountA(rng.rows(i)) = 0 Then rng.rows(i).Delete
        Next
    End With
End Sub