Select Range

[K]

Hi all, how can i select range from B2 to last value cell to left in
row 1 by macro. please can any body can help

 

[Don Guillett]

Sub selectrange()
Range(Cells(2, 2), Cells(2, Cells(1, Columns.Count) _
.End(xlToLeft).Column)).Select
End Sub