' 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

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

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

Sorry.
Or what I really meant

Sub copyit()
Range("C1:G1").Copy _
Cells(Cells(Rows.Count, "c").End(xlUp).Row + 1, "c")
End Sub

--
Don Guillett
SalesAid Software

"Trevor Shuttleworth" wrote in message
...
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

Try:

Sub test()
Range("C1:G1").Copy Range("C65536").End(xlUp).Offset(1, 0)
End Sub

You should be able to run that as often as you want provided there is
something in cell C1

Regards

Trevor


"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

Don, I gget a syntex Error in the row that starts with Cells.

Thanks
Larry

Trevor Shuttleworth wrote:
Try:

Sub test()
Range("C1:G1").Copy Range("C65536").End(xlUp).Offset(1, 0)
End Sub

You should be able to run that as often as you want provided there is
something in cell C1

Regards

Trevor

' Macro1 Macro
This macro works except I need to be able to find a blank cell in column
[quoted text clipped - 22 lines]
ActiveSheet.Paste
End Sub

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

Trevor, I ran it and it works great!!
Thanks so much for your time and help

Larry Fish wrote:
Don, I get a syntax Error in the row that starts with Cells.

Thanks so much for your time and help
Larry

Try:

[quoted text clipped - 14 lines]
ActiveSheet.Paste
End Sub

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

You're welcome ... Thanks for the feedback


"Larry Fish via OfficeKB.com" <u27092@uwe wrote in message
news:66d7042644724@uwe...
Trevor, I ran it and it works great!!
Thanks so much for your time and help

Larry Fish wrote:
Don, I get a syntax Error in the row that starts with Cells.

Thanks so much for your time and help
Larry

Try:

[quoted text clipped - 14 lines]
ActiveSheet.Paste
End Sub

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