ThisWorkbook.Worksheets(i).Cells(5, 7).FormulaLocal = "=SUMME(cells(1,7).addresslocal & ":" & cells(4,7).addresslocal)"