method to determine Last Column with Data, in one row

Sub LastColumnWithData_xlToLeft()

Dim lastColumn As Integer

lastColumn = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column

MsgBox lastColumn

End Sub