Copy Values to next empty cell range

  • Thread starter Thread starter Aldo Cella
  • Start date Start date
A

Aldo Cella

How can I program this? I want to copy c19:g19 on sheet1, to the same sheet,
and paste special(values) to the next empty row in this cell range, K5:O35.

Thanks in advance,

John
 
Sub findbottom_paste()
Set rng1 = ActiveSheet.Cells(Rows.Count, "K").End(xlUp) _
.Offset(1, 0)
Range("C19:G19").Copy _
Destination:=rng1
End Sub


Gord Dibben MS Excel MVP
 
Back
Top