Use the Selection.End(xlDown) method to select data in a column but do not stop at a blank space. PL

[minkokiss]

I am trying to select all the data in a column using this method but
when a blank cell is encountered the selection stops and everything
after the blank space is left out. Would you please let me know what I
am doing wrong. Here is an example of the code.


Cells(5, i).Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Copy

 

[JE McGimpsey]

You're doing nothing "wrong" - the Select Down command is designed to
stop at a blank cell.

Instead, try:

Range(Cells(6, i), Cells(Rows.Count, i).End(xlUp)).Copy _
Destination:=DestRange

Where DestRange is your destination cell.

 

[Guest]

to get to the last item in a column, say column A:

nrow=Cells(Rows.Count,"A").End(xlUp).Row

 

[minkokiss]

You're doing nothing "wrong" - the Select Down command is designed to
stop at a blank cell.

Instead, try:

Range(Cells(6, i), Cells(Rows.Count, i).End(xlUp)).Copy _
Destination:=DestRange

Where DestRange is your destination cell.

Thank you thank you. That worked perfectly. Thank you for all your
help

Minko