Thanks Tom!

I think this is the answer I was looking for. Let me try it.

-Emily

Tom Ogilvy wrote:
didn't see question 2

with worksheets("Sheet1")
lastrow = .cells(rows.count,"H").End(xlup).row
.Range("A2:H" & Lastrow).Clear
End with
With Worksheets("Sheet2")
lastrow = .cells(rows.count,"Q").End(xlup).row
.Range("A2:D2").Clear
.Range("F2:Q2").Clear
.Range("A3:Q" & lastrow).Clear
End With

--
Regards,
Tom Ogilvy