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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"K" wrote in message
...
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