Private Sub CommandButton1_Click()
Dim R As Range
Set R = Range("c8:g20")
'Range("E10").Select
MsgBox R.Cells(Selection).Column
MsgBox ActiveCell.Column - (Range("c8:e20").Columns(1).Column) + 1
MsgBox ActiveCell.Column - R.Cells(Selection).Column
End Sub