Sub Macro3()
'Select empty rows in range and delete them
    Range("A10:H50").Select 'this range is the differencing
    Selection.SpecialCells(xlCellTypeBlanks).Select 'selecting empty rows
    ActiveWindow.SmallScroll Down:=18 '??????
    Selection.Delete Shift:=xlUp 'search last row with data?
    ActiveWindow.SmallScroll Down:=-27 '????
    Range("A1").Select 'position when VBA is finished
End Sub

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

Sub DeleteEmptyRows()
'Graham Mayor
Dim rng As Range
Dim i As Long
Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "G").End(xlUp).Row - 4        'G is the column with the last row of data
        Set rng = .Range("A1:D" & LastRow)        'Set the range to the area to be processed
        For i = LastRow To 10 Step -1        'Process from the bottom
            If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then rng.Rows(i).EntireRow.Delete
        Next i
    End With
End Sub