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
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
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