How to copy range values to next available free row using VB

[D_Spark]

Can anyone please assist?

Im wanting to create a VB button command so that when I click the CommandButton it will copy a range on a worksheet and pastespecial, values the cell values to the next free row

eg

Range to be copied ("C8:K8") on worksheet called "test"
Range ("C18:K18") on same worksheet have values already

so the VB will copy ("C8:K8") and then paste special values into ("C19:K19")

then if I were to run the command again it would copy ("C8:K8) into ("C20:K20")
this is because ("C18:K18") and ("C19:K19) are populated

etc

 

[VoG]

Try

Sub Pspecial()
With Worksheets("test")
    .Range("C8:K8").Copy
    .Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End With
End Sub