selecting the last used cell in a column

[navyaa]

I have to select 4 columns till the last cell that has a value. I start selecting at cell B4 and have to select C4,D4 and E4 but only till the last used cell.

I tried using this but is not working...Any suggestions?

Set sh = Sheets("IMPORTS")
n = Range("b65536").End(xlUp).Row

sh.Range("B4:E4" & n).Select

THANK YOU,
Navya

 

[AChimpNamedCornelius]

So you have to select B4 to E4, and B5 to E5, and B6 to E6, until you get to a Bx that is empty (or the last one, even if intermediate Bx's are empty)?

Or you have to select B4, C4, D4, E4, F4, ... until X4 is empty?

Or a combo of both?

 

[navyaa]

[No message]

 

[navyaa]

I need to select B4:E4 till the row in column B has a value in it.

THANKS,
NAVYA

 

[navyaa]

any suggestions why the code is not working

 

[XL-Dennis]

Navya,

If I understand the problem correct following procedure will do what You want:

<PRE>
<FONT color=blue>Sub </FONT>Selected_Range()

<FONT color=blue>Dim </FONT>wsSheet<FONT color=blue> As</FONT> Worksheet

<FONT color=blue>Dim </FONT>rnArea<FONT color=blue> As</FONT> Range



<FONT color=blue>Set </FONT>wsSheet = ThisWorkbook.Worksheets("Sheet1")



<FONT color=blue>With </FONT>wsSheet

<FONT color=blue>Set </FONT>rnArea = .Range(.Range("B4"), Range("E" & .Range("B65536").End(xlUp).Row))

<FONT color=blue>End With</FONT>



rnArea.Select



<FONT color=blue>End Sub</FONT>


</PRE>

HTH,
Dennis