What's the actual problem?

Why not come from below?

Code
-------------------

Sub defineOrders2()
Dim rge2 As Range
Dim LastRow As Long

LastRow = Worksheets("order").Range("B65536").End(xlUp).Row
Set rge2 = Worksheets("order").Range("B2:B" & LastRow)

End Sub

-------------------

--
Nori
-----------------------------------------------------------------------
Norie's Profile: http://www.excelforum.com/member.php...fo&userid=1936
View this thread: http://www.excelforum.com/showthread.php?threadid=37910