Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim My_col#, My_ro#
If Target.Count = 1 Then
Select Case Target.Column
  Case 7: My_col = 1: My_ro = Target.Row + 1
  Case 1: My_col = 7: My_ro = Target.Row
 End Select
End If
 Cells(My_ro, My_col).Select
Application.EnableEvents = True
End Sub