Use the Worksheet Change Event sub and a Macro with a Hot Key such as Ctrl+z or Ctrl+b. Don't use a,s,x,c, or v
These two Subs go in the worksheet Code Page. They handle the Enter Key process
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5:E30", "H5:I30")) Is Nothing Then MoveSelection Target
End Sub
Private Sub MoveSelection(Target As Range)
Select Case Target.Column
Case 4: Target.Offset(, 1).Select
Case 5: Target.Offset(1, -1).Select
Case 8: Target.Offset(, 1).Select
Case 9: Target.Offset(1, -1).Select
End Select
End Sub
Then you must record a Macro, Named "ChangeTeams". Store the Macro in This Workbook. Assign a Keyboard Shortcut. Select a cell before recording. when recording, simply type a letter in the cell and press Enter. This is an easy way to start a sub that has a Keyboard Shortcut.
The Macro recorder will save the Macro code in a standard Module, named "Module1."
Replace the code in the "ChangeTeams" Macro with this
Select Case ActiveCell.Column
Case 4, 5: SelectTeam1
Case 8, 9: SelectTeam2
End Select
Then add these two Subs below the Macro
Private Sub SelectTeam1()
Dim Cel As Range
Set Cel = Cells(Rows.Count, "D").End(xlUp)
If Cel.Offset(, 1) = "" Then
Cel.Offset(, 1).Select
Else
Cel.Offset(1).Select
End If
End Sub
Private Sub SelectTeam2()
Dim Cel As Range
Set Cel = Cells(Rows.Count, "H").End(xlUp)
If Cel.Offset(, 1) = "" Then
Cel.Offset(, 1).Select
Else
Cel.Offset(1).Select
End If
End Sub
This allows the Hotkey to provide the desired SpaceBar process.