Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim C As Range
If Not Intersect(R, Range("e7:e14")) Is Nothing Then
If Intersect(R, [E7:E14]).Address = R.Address Then
For Each C In R.Cells
With C
.Value = IIf(Left(.Offset(0, 1), 2) <> "33", _
"33" & Right(.Offset(0, 1), 9), _
[A1] & Right(.Offset(0, 1), 9))
End With
Next
End If
End If
End Sub