Sub MakroVersetzen()
    'in die Zelle "E2"
        Range("E2").Select
        ActiveCell.Offset(0, 0).Value = "(" & CStr(Date) & ")"
    'Markierung eins runter
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveCell.Offset(0, 0).Value = "A"
 
    'Markierung 2 Zeilen nach unten
        ActiveCell.Offset(2, 0).Range("A1").Select
        ActiveCell.Offset(0, 0).Value = "B"
 
    'Markierung 4 Zeilen nach rechts
        ActiveCell.Offset(0, 4).Range("A1").Select
        ActiveCell.Offset(0, 0).Value = "C"
 
    'Markierung 2 Zeile nach links
        ActiveCell.Offset(0, -2).Range("A1").Select
        ActiveCell.Offset(0, 0).Value = "Ende"
End Sub

Gruß aus Mittelfranken
Heinz