Ich würde höflich um Hilfe bitten!

Ich habe nachstehendes Makro geschrieben, das soweit in einfahcer Weise (mit Makro Button) funktioniert.

Sub Kopie()
' Kopie Makro
Range("A4:E4").Select
Selection.Copy Destination:=Range("G4:K4")
Range("I4").Select
ActiveCell.FormulaR1C1 = "Neu1"
Range("A4").Select
End Sub

Ich würde aber folgendes benötigen, nämlich das die Daten nur in jener Zeile kopiert werden, wo sich die aktive Zelle befindet.

Also z.B. Wenn ich den Courser auf Zelle A9 stelle (also aktive Zelle), dann sollte beim Betätigen des Button das oben angeführte Makro wieder die Daten kopieren, aber diesmal von Zeile 9 (nicht die Daten von Zeile 4).

Range("A9:E9").Select
Selection.Copy Destination:=Range("G9:K9")
Range("I9").Select
ActiveCell.FormulaR1C1 = "Neu1"
Range("A9").Select

Habe es mit ActiveCell probiert, aber leider nicht geschafft.

Bitte um Unterstützung.
Herzlichen Dank
Michael