Continuous Copy and paste

[john tempest]

This code is attached to a button and works ok the first time the button is pushed. I would like the button on the second time to paste into C4 and then onwards to C33.

 ActiveSheet.Unprotect
    Range("P4:R4").Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Thank you John

 

[Joe4]

You are welcome.
Glad I was able to help!