Summe erstellen

Sub Test()
Dim mySheets, oSH As Object
Set mySheets = Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3"))
'Das Array Definiert den Umfang der Bearbeitung. In diesem Fall alle aufgeführten Tabellenblä _
tter.
For Each oSH In mySheets
Dim varPlan() As Variant, varKW As Variant, varValues As Variant
Dim varRet As Variant
Dim lngR As Long, S As Long, E As Long
With oSH
S = Application.Max(4, .Cells(.Rows.Count, 3).End(xlUp).Row)
E = Application.Max(4, .Cells(3, .Columns.Count).End(xlToLeft).Column)
For S = 1 To E
.Range("E+1:S+1").FormulaLocal = "=Summe(D4:DS)"
Next S
End With
Next oSH
End Sub