Something like this perhaps:

Dim wa as Worksheet:Set wa=ActiveSheet
    wa.Copy After:=wa
    Range("C8:D38,H8:I38,M8:N38,R8:S38,W8:X38,AB8:AC38,AG8:AH38,AL8:AM38").ClearContents
    wa.Range("A1").Select