Hallo Jelena,
das ist einfach. Das geht mit Application.OnKey. Im folgenden Beispiel wird von J nach T gesprungen und von T zurück nach J dann aber eine Zeile weiter. Befindet sich die AktiveZelle woanders wird in die nächste Spalte gesprungen:
Der folgende Code gehört in das Modul "Diese Arbeitsmappe"
Private Sub Workbook_Open()
  Application.OnKey "{TAB}", "Springen"
End Sub
Und dieser code in ein Standardmodul (z.B. Modul1)
Sub Springen()
  If ActiveCell.Column = 10 Then
    ActiveCell.Offset(0, 10).Select
  ElseIf ActiveCell.Column = 20 Then
    ActiveCell.Offset(1, -10).Select
  Else
    ActiveCell.Offset(0, 1).Select
  End If
End Sub
Nach dem Speichern, Schließen und neu öffnen sollte das funktionieren.
Gruß Mr. K.