Selecting the last empty cell in a column

Closed
ChrisBelfast82 - Apr 27, 2010 at 11:47 AM
ChrisBelfast Posts 10 Registration date Tuesday April 27, 2010 Status Member Last seen September 7, 2010 - Apr 27, 2010 at 01:07 PM
Hi folks

I have data in cells "B2:L2" that i need to copy to the next empty cell in column "Q", I was trying the following:

Range("B2:L2").Select
Selection.Copy
Range("Q2").Select
ActiveCell.End.Select
ActiveSheet.Paste

But obviously that didn't work out for me :)

Thanks in advance

3 responses

victoryz Posts 9 Registration date Monday April 26, 2010 Status Member Last seen May 4, 2010 10
Apr 27, 2010 at 11:59 AM
Hi Chris,

Copy data from b2:L2, put cursor on Q cell, right click mouse and select "paste special - transpose" ur data will be copied in Q column
0
ChrisBelfast Posts 10 Registration date Tuesday April 27, 2010 Status Member Last seen September 7, 2010
Apr 27, 2010 at 12:09 PM
Whoops!
Thanks for the fast reply but i didnt make it clear now that ive read it again...

I have data in cells "B2:L2" that i need to copy to the next empty cell in column "Q:AA", I was trying the following:

Range("B2:L2").Select
Selection.Copy
Range("Q2").Select
ActiveCell.End.Select
ActiveSheet.Paste

The next time that the macro is run i want it to then insert the cells "B2:L2" into the next empty cell in column "Q" which would then be "Q3".

Again thanks in advance
0
ChrisBelfast Posts 10 Registration date Tuesday April 27, 2010 Status Member Last seen September 7, 2010
Apr 27, 2010 at 01:07 PM
Figured it out

Range("B2:L2").Select
Selection.Copy
Cells(Rows.Count, "Q").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Thanks for trying hope this helps someone else
0