Column Number for currentregion

Think this works

 
Sub Macro4()
    Dim ColNum As Integer
    ColNum = Selection.Cells(1, 1).Column
    
    Selection.End(xlToLeft).Select
    MsgBox Abs(ActiveCell.Column - ColNum)
End Sub

VBA Noob