Hallo

Folgender Code schreibt Daten aus Tabelle1 in ein Volage Sheet und Speichert dann das Sheet in der Arbeitsmappe mit dem Header aus Spalte 10-12

und bilde bei den Spalten E-J die Summen

Nun mein Problem

1. Es werden die Header in der Vorlage überschrieben (es sollen aber die Header aus der Vorlage bleiben bis auf Spalte jeweilige Spalte 10,11,12 , Also es

soll beim einfügen mit Zeile 2 begonnen werden nur in 10,11,12 soll der Header aus der Datendatei genommen werden.

2. Die Zellen E-I sind in der 1 Zeile verformelt und werden nicht automatisch runtergezogen und in Spalte E soll auch die Formatiertung grau mit runtergezogen werden.

3. Die summenformel ist 3 Zeilen unterhalg der letzten Datenzeile und gibt den summierten Wert als Wert an es sollte dort aber wieder die Summenformel stehen damit wenn Änderungen sind es sich automatisch summiert

Sub Kopiere()
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
   For i = 10 To 12 
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy after:=Sheets(Sheets.Count)
      .Visible = False
      End With
      .UsedRange.Range("A:B").Copy ActiveSheet.Cells(1)
      .UsedRange.Range("F:F").Copy ActiveSheet.Cells(3)
      .UsedRange.Range("E:E").Copy ActiveSheet.Cells(4)
      .UsedRange.Columns(i).Copy ActiveSheet.Cells(1, 10)
       ActiveSheet.Name = Cells(1, 10)
      .UsedRange.Range("H:H").Copy ActiveSheet.Cells(11)
      .UsedRange.Range("G:G").Copy ActiveSheet.Cells(12)
      .UsedRange.Range("I:I").Copy ActiveSheet.Cells(13)
        
      With Intersect(Range("E:J"), Rows(Cells.SpecialCells(xlCellTypeLastCell).Row + 1))
    .FormulaR1C1 = "=Sum(R1C:R[-1]C)"
    .Formula = .Value
    .HorizontalAlignment = xlCenter
    End With
   Next
End With
End Sub

Kann mir bitte dabei jemand helfen denn, ich krieg das nicht wirklich in den Griff

Danke

Sabrina