2 big-duke
заметил одну неприятность работы Вашего кода при перемещении по листу
курсорными клавишами.
Предлагаю одну строчку исправляющую эту неприятность

Private exitFlag As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If exitFlag Then Exit Sub
exitFlag = True
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Select
'добавляю строку
Target.Activate
exitFlag = False
End Sub