definierte Markierung ansprechen

Sub Abschreiben()
Dim iWks As Integer, r1 As Range, r2 As Range
Dim sp As Integer, ro As Integer, s1 As String, s2 As String
Dim n As String
n = Names("Markierung")
ro = ActiveCell.Row
sp = ActiveCell.Column
Set r1 = Range(Cells(ro, 3), Cells(ro, 4))
Set r2 = Range(Cells(ro, 9), Cells(ro, 10))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.Copy
Application.Goto Reference:=n
ScreenUpdating = True
Range(Cells(ro, sp + 2), Cells(ro, sp + 2)).Select
Selection.Paste
Application.CutCopyMode = True
ActiveWorkbook.Names("Markierung").Delete
End Sub