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

On Mon, 10 Mar 2008 16:22:43 -0500, "Aldo Cella" wrote:

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