clearing ranges from COPIED sheet

[crasherpaul]

i have this code that copies a sheet and renames it to a month that is in N3, what i would like to know is this, when the sheet is copied "fortnightly pay" (copied and renamed to Aug 13) is it possible to clear serverial ranges on the fortnightly pay sheet. the ranges are B8:E21, I6:I21, P8:Q21. and also disable the macro or remove a button on the new sheet that has been created


Sub CopySheet()
Dim SheetName As String
SheetName = Worksheets("fortnightly pay").Range("N3").Value
Sheets("fortnightly pay").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = SheetName
End Sub

[patel]

Sub CopySheet()
Dim SheetName As String
SheetName = Worksheets("fortnightly pay").Range("N3").Value
Sheets("fortnightly pay").Copy After:=Sheets(Sheets.Count)
with Sheets("fortnightly pay")
.range("B8:E21").clearcontents
.range("I6:I21").clearcontents
.range("P8:Q21").clearcontents
end with
ActiveSheet.Name = SheetName
End Sub

[crasherpaul]

ty very much patel