Office: Erste oder letzte gefuellte Spalte oder Zeile im unfixierten Bereich anspringen

Vorbemerkung:
Wie verwendet man den folgenden VBA-Code?

Sub RechtsLetzte() 'STRG-Umschalt-R als vorgeschlagener Shortcut hierzu
With Selection.Offset(0, Cells.Columns.Count - Selection.Column)
If IsEmpty(.Value) Then .End(xlToLeft).Select Else .Select
End With
End Sub

Sub UntenLetzte() 'STRG-Umschalt-U als vorgeschlagener Shortcut hierzu
With Selection.Offset(Cells.Rows.Count - Selection.Row)
If IsEmpty(.Value) Then .End(xlUp).Select Else .Select
End With
End Sub

Sub LinksErste() 'STRG-Umschalt-L als vorgeschlagener Shortcut hierzu
With Cells(Selection.Row, IIf(ActiveWindow.FreezePanes, ActiveWindow.ActivePane.ScrollColumn, 1))
If IsEmpty(.Value) Then .End(xlToRight).Select Else .Select
End With
'nimmt bei fixierten Vorspalten von links die erste unfixierte gefüllte Zelle, sonst die erste des Blatts
End Sub

Sub ObenErste() 'STRG-Umschalt-O als vorgeschlagener Shortcut hierzu
With Cells(IIf(ActiveWindow.FreezePanes, ActiveWindow.ActivePane.ScrollRow, 1), Selection.Column)
If IsEmpty(.Value) Then .End(xlDown).Select Else .Select
End With
'nimmt bei fixierten Topzeilen von oben die erste unfixierte gefüllte Zelle, sonst die erste des Blatts
End Sub