Try:

columncount = Cells(1, Columns.Count).End(xlToLeft).Column