シートの最大列数を取得する
早速結論です。シートの最大列数を取得するには次の構文を使用します。
Worksheets("シート名").Cells(1, Columns.count).End(xlToLeft).Column
上の構文は、そのシートにある1行目で最終列を探しています。
『Cells(1, Columns.count)』の数値（赤字）を変更すれば、その行で最終列を取得します。
※1行目が空であったり、行によって列の数が違う時に使用します。
'2行目で最大列数を取得する
Worksheets("シート名").Cells(2, Columns.count).End(xlToLeft).Column
'3行目で最大列数を取得する
Worksheets("シート名").Cells(3, Columns.count).End(xlToLeft).Column
