Sumar celdas de varias hojas

Tengo que sumar diferentes celdas de varias hojas siempre estan en la misma columna y linea en todas las hojas, el problema está en que el archivo me esta creando por medio de un macro hojas nuevas,ahora tengo la siguiente formula:
=SI((B35<>"");SUMA(¡hoja1:hoja20!K35);FALSO),
pero en cuando me inserta la macro la hoja 21,(al final)ya no la suma.
que formula o macro puede ser para que me sume todas las hojas indepediente de el numero de hoja.

Si, pero por favor indicame en esta macro donde inserto la linea y que tendria que quitar de esta macro.-
Sub GuardaHistPre()


'Copia a otro archivo la hoja de presupuesto ya terminado con los valores sin formulas

Carp_dest = "c:\temp"
Arch_Desd = "historial"
Hoja_orig = "Datos"

With Application
.StatusBar = "Actualizando historial. Un momento, por favor"
.ScreenUpdating = False
.Calculate
Carp_dest = Carp_dest & IIf(Right(Carp_dest, 1) = "\", "", "\")
Arch_Desd = Arch_Desd & IIf(Right(Arch_dest, 4) = ".xls", "", ".xls")
Workbooks.Open Carp_dest & Arch_Desd
ActiveWindow.ActivatePrevious
Sheets(Hoja_orig).Copy After:=Workbooks(Arch_Desd).Sheets(Workbooks(Arch_Desd).Sheets.Count)
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select
Sheets(Sheets.Count).Name = "" & Sheets.Count
'Sheets.Add Before =: Sheets("final")
ActiveWorkbook.Close True

.StatusBar = False
.ScreenUpdating = True

Bien. Una respuesta aceptable.