last column number July 02, 2020 Sub last_column() Dim kk As Long kk = Cells(1, Columns.Count).End(xlToLeft).Column End Sub Read more