Dim rng As Range, LastRow As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Set rng = Range("A1:B"& LastRow)

Mike F
"Simon" wrote in message
...
Hi,

I use

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select

for column A, but how do I grab from A1 to the last record in row B in
one swoop?