Makro

Ich möchte das Makro unten so abändern, dass die es den Text der Spalte A-F löscht und von der Spalte G-xxx die Formeln übernimmt! Momentan macht es das nur mit der Spalte A!!

Könnt ihr mir bitte helfen!!

Besten Dank!
Pädi

Sub Kopieren_mit_Formeln()
Dim lZeile As Long
lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows(lZeile - 2).Copy
Cells(lZeile - 1, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
' Eingabezellen löschen
Cells(lZeile - 1, 1) = ""
End Sub