Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       ' проверяем, что в фокусе одна ячейка, а не диапазон
           If Target.Cells.Count > 1 Then Exit Sub
       ' проверка нахождения фокуса в целевом диапазоне
           If Not Intersect(Target, Range("f3:j64")) Is Nothing Then
               Range("A3:A64").ClearContents
               Cells(Target.Row, 1) = " " ' помечаем строку для УФ
               Exit Sub
           End If
       ' проверяем попадание на столбец удаления
           If Not Intersect(Target, Range("d3:d64")) Is Nothing Then
               If Cells(Target.Row, 1) = " " Then  ' проверяем, виден ли КРЕСТ УДАЛЕНИЯ
               'Target.Row.Select
               'Selection.Delete Shift:=xlUp
               End If
           End If
       ' проверяем попадание на столбец вставки
           If Not Intersect(Target, Range("c3:c64")) Is Nothing Then
               If Cells(Target.Row, 3) = 1 Then  ' проверяем есть ли ПЛЮС ВСТАВКИ
               'Target.Row.Insert
               End If
           End If
End Sub