最強！最終列

Function cEnd(Optional ByVal clmS As String, Optional ByVal rowT As Long, _
　　　　　　  Optional ByVal wsNm As String) As Long
　　If wsNm = "" Then wsNm = ActiveSheet.Name
　　If clmS = "" Then clmS = "A"
　　If rowT = "" Then clmS = 1
　　Dim ws As Worksheet: Set ws = Worksheets(wsNm)
　　cEnd = ws.Range(clR & rowT).Offset(0, Columns.Count - 1).End(xlToLeft).Column
End Function

cEnd()

とするだけで、Ａ列の右端の列が！