Copy value to and add to bottom of list

Mar 3rd, 2002, 04:55 PM

I have been attempting to copy some values scattered over a speadsheet and place them in a 'summary list'. I have recorded a macro in the hope that the 'End Down' and another 'Down' would send me to the bottom of the list, since this obviously varies with added figures. Needless to say my cunning plan failed and I am looking for some guidance as to where to look next.
Thanking you in anticipation.
Sam

Paul B · Mar 3rd, 2002, 05:01 PM

This will take you to the next available cell in column A
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

Mar 3rd, 2002, 05:10 PM

Cheers Paul,
I see you go bottom to top, is that 'better' than top down?
I seem not to have appreciated the use of the Offset function. I was looking in MS Help but it is OK if you know what you are looking for!
Thanks again
Sam

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 3rd, 2002, 04:55 PM	#1
Guest Posts: n/a	I have been attempting to copy some values scattered over a speadsheet and place them in a 'summary list'. I have recorded a macro in the hope that the 'End Down' and another 'Down' would send me to the bottom of the list, since this obviously varies with added figures. Needless to say my cunning plan failed and I am looking for some guidance as to where to look next. Thanking you in anticipation. Sam

Mar 3rd, 2002, 05:01 PM	#2
Paul B Board Regular Join Date: Feb 2002 Location: Georgia USA Posts: 544	This will take you to the next available cell in column A Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select

Mar 3rd, 2002, 05:10 PM	#3
Guest Posts: n/a	Cheers Paul, I see you go bottom to top, is that 'better' than top down? I seem not to have appreciated the use of the Offset function. I was looking in MS Help but it is OK if you know what you are looking for! Thanks again Sam