Macro om werkblad vanaf een bepaalde regel te legen

[carlocarlo]

Ik wil graag een macro gebruiken waarmee in in 1x een werkblad kan legen met uitzondering van:
-regel 1 en
-de waarde op regel G2 t/m K2
Kan iemand mij daarmee verder helpen?

 

[Cobbe]

Je kan deze eens testen:

Sub cobbe()
With ActiveSheet
   .Rows(3).Resize(.Range("A" & .Rows.Count).End(xlUp).Row).ClearContents
   .Range(.Cells(2, 1), .Cells(2, 6)).ClearContents
   .Range(.Cells(2, 12), .Cells(2, .Cells(2, .Columns.Count).End(xlToLeft).Column)).ClearContents
End With
End Sub

 

[carlocarlo]

Beste Cobbe, bedankt voor je reactie. Het werkt.