Removing empty rows with a macro

Hi Rob,

Thanks for your help. I found the macro below, but being a novice have not got it to work.

Directly below is manually what I want to achieve, but I want the auto macro to search for empty rows.
Thanks,
Mike

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/10/2009 by mike.diss
'

'
    Rows("40:104").Select
    Selection.Delete Shift:=xlUp
    Rows("48:58").Select
    Selection.Delete Shift:=xlUp
    Rows("54:66").Select
    Selection.Delete Shift:=xlUp
End Sub

=====================

Sub DeleteBlankRows1()
Range("39:104").Select
'Deletes the entire row within the selection if the ENTIRE row contains no data.



'We use Long in case they have over 32,767 rows selected.

Dim i As Long



    'We turn off calculation and screenupdating to speed up the macro.

    With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False

      

    'We work backwards because we are deleting rows.

    For i = Selection.Rows.Count To 1 Step -1

        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

            Selection.Rows(i).EntireRow.Delete

        End If

    Next i



        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

End Sub