Sorry, misread

Dim LastColumn As Long

LastColumn = Cells(3, Columns.Count).End(xlToLeft).Column

Range(Cells(3, 5), Cells(15, LastColumn)).Select

Regards