Selection of range in end of column

[wjeil]

Hello,

I want to copy a selected range in 2 columns at the first available cell in another column.

Range("I1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Copy Cells(Rows.Count, "P").End(xlUp).Offset(1, 0)

This is what i did. So from "I" down till the last active cell and then also copy the according cells in H and then copy that data in the end of P.

But this does not work, what did i do wrong?

 

[Fluff]

How about

Range("I1:H" & Range("I" & Rows.count).End(xlUp).Row).Copy Range("P" & Rows.count).End(xlUp).Offset(1)

 

[wjeil]

Yep, that works thanks. One more question, how can i delete in VBA the cells of an 2 column table that are empty?

 

[Fluff]

As that is a totally different question, it needs a new thread. Thanks