Selection.AutoFill Destination:=Rows("24:28")
würde ich gerne die Referenzzeile um 4 Felder nach oben kopieren.
Kann mir jemand sagen, wie ich das entsprechende Makro anpassen müßte?
Hier das Makro:
Application.Goto Reference:="deter1"
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Application.Goto Reference:="deter1"
Selection.AutoFill Destination:=Rows("24:28"), Type:=xlFillDefault
Rows("24:28").Select
Rows("24:27").Select
Selection.Interior.ColorIndex = xlNone
Range("A24").Select