Thread: Remove blank rows

Hi

I do not know how to use macro. I am tired to delete the blank rows manually each month.

Please make my days easier if you know how I can go about remove the blank rows on the attached file. I have used F5 but it is not friendly

If I have to use macro - can you give me the baby step-by-step and the codes pls

Thank you all!

Am so sorry.. I have never used macros before.. how do I go about using the code you provided?

can I email you the file to help?

I have placed the macro in your sample file. It is named Macro1

Here are instructions for running it:

http://spreadsheets.about.com/od/adv...el_macro_5.htm

You're welcome. I did it because your green light was out.

I would replace

With ActiveSheet.Range("$A$1:$E$15248")

with

With ActiveSheet.Range("$A$1", Range("A" & Rows.Count).End(xlUp).Offset(, 4))

Also, add Application.ScreenUpdating = False at the beginning of the code and Application.ScreenUpdating = True at the end.

The code would look like this

Sub Macro1()
Application.ScreenUpdating = False
    Cells.AutoFilter
    With ActiveSheet.Range("$A$1", Range("A" & Rows.Count).End(xlUp).Offset(, 4))
        .AutoFilter Field:=1, Criteria1:="="
        .AutoFilter Field:=5, Criteria1:="="
        .Offset(1, 0).EntireRow.Delete
    End With
    Cells.AutoFilter
    Application.ScreenUpdating = True
End Sub

Not nitpicking, just observing.

John

Might be that "lazy" is the wrong word.
You could be busy and I have time on hand.

Hi

Thank you for all the help. I am still stuck

I do get the following error message

RUN-TIME ERROR '1004'
AUTOFILTER METHOD OF RANGE CLASS FAILED

Can I email the file am working on to someone who can help.. please

no its is not protected

I am about to give up... i try to attach the whole file but the MB on myfile wont allow me

if one can help pls.. let me email u