Help to Clear Contents with Code

[keithb]

I copied this code and made some changes to fit my needs.
It does what I want it to do as far as coping the rows over to a new sheet, but it won't clear the old data when the code is run.
Can someone show me why it doesn't work?
I am not very good with codes

Keith

Sub CopyRowToPenders()
'========================================================================
' COPIES ALL ROWS WHERE COLUMN AH HAS VALUE "P/IHF" FROM March 2011
' INTO "Penders" SHEET
'========================================================================
Dim LastRowMarch2011, LastRowPenders As Long
Dim i As Long
Application.ScreenUpdating = False
' LastRowPenders = Worksheets("Penders").Range("A" & Rows.Count).End(xlUp).Row
' Sheets("Penders").Range("A2:AM" & LastRowPenders).ClearContents
LastRowMarch2011 = Worksheets("March 2011").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("March 2011")
For i = 2 To LastRowMarch2011 Step 1
If Cells(i, "AH").Value = "P/IHF" Then
LastRowPenders = Worksheets("Penders").Range("A" & Rows.Count).End(xlUp).Row
Rows(i).Copy Worksheets("Penders").Range("A" & LastRowPenders + 1)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

 

[alx7000]

Hi Keith,

If you have an apostrophe (') at the start of a line of code excel will skip over it, so if you remove the ' from the start of

' LastRowPenders = Worksheets("Penders").Range("A" & Rows.Count).End(xlUp).Row
' Sheets("Penders").Range("A2:AM" & LastRowPenders).ClearContents

then hopefully it should work!

If it doesn't or you have any questions please let me know.

Cheers,
alx7000

 

[keithb]

Thanks alx7000
I learned something, It works now!!!

Keith