Copy range c19:g19 then paste special (values) to next empty row

[levi58]

Hi,
I've been racking my brain to do a simple task I suppose. I want to copy range c19:g19 and then paste special the values into the next available (empty) row starting at k5 through k35.
I would like to put the code in a macro that also performs other duties. Any help would be greatly appreciated.

Thanks,

John

 

[VoG]

Try

Sub cpy()
Dim LR As Long
LR = WorksheetFunction.Max(5, Range("K" & Rows.Count).End(xlUp).Row)
Range("C19:G19").Copy
Range("K" & LR).PasteSpecial Paste:=xlPasteValues
End Sub

 

[levi58]

Thanks, just getting off of work now, I'll try it when I get home.
Thankyou for your help,

John