Kann mir bitte jemand nachfolgenden Codeschnipsel ergänzen damit vor dem einfügen die bestehende Zeile zwei nach unten verschoben wird?
WkSh_Q.Cells.Range("H227:J227").Copy Destination:=WkSh_Z.Range("A2:C2")
Vielen Dank für Hilfe
WkSh_Q.Cells.Range("H227:J227").Copy
WkSh_Z.Range("A2").Insert shift:=xlShiftDown
Application.CutCopyMode = False
Gruß Werner