Think that needs to be:

Range("C1:G1").Copy Cells(Rows.Count, "c").End(xlUp).Offset(1, 0)

Regards

Trevor


"Don Guillett" wrote in message
...
try
sub copyit()
Range("C1:G1").Copy cells(rows.count,"c").end(xlup).row+1
end sub
--
Don Guillett
SalesAid Software

"Larry Fish via OfficeKB.com" <u27092@uwe wrote in message
news:66d5f866df134@uwe...
' Macro1 Macro
This macro works except I need to be able to find a blank cell in column
C.
The first time I run the Macro it works. The second time it copies over
the
first entry not the cell below it. I am not sure how to change
"Range(c9).
select"
Please see macro below

Thanks for the help

' Macro recorded 9/25/2006 by
'
' Keyboard Shortcut: Ctrl+a
'
Range("C1:G1").Select
Selection.Copy
'
Range("A1").Select
Selection.End(xlDown).Select
Range("C65536").Select
Selection.End(xlUp).Select
Range("C9").Select
ActiveSheet.Paste
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200609/1