sammentælling forsvinder

egentligt affødt af denne http://www.eksperten.dk/spm/811698

Jeg kører denne
Sub Total()

Application.ScreenUpdating = False ' Undgå at skærm flimrer når der skiftes ark m.v
AktuelArk = ActiveSheet.Name: AktuelCelle = ActiveCell.Address ' Husker aktuel ark og celle
Set sh1 = Sheets("Total"): sh1.Activate 'sh1 sættes=Ark1, er lettere at skrive flere gange : sh1 aktiveres
sh1.Range(Range("D6"), ActiveCell.SpecialCells(xlLastCell)).ClearContents ' Værdier i Ark1 slettes
For Each Sh In ActiveWorkbook.Sheets ' Ark løkke starter
If Sh.Name <> sh1.Name Then ' Sikrer at Ark1 ikke testes
Sh.Activate ' Arkene aktiveres efter tur
For t = 7 To Sh.Cells(65000, "G").End(xlUp).Row ' Finder nederste række med værdi i kolonne D
If Application.CountIf(sh1.Range("D6:D20000"), Cells(t, "G")) < 1 Then 'Test om aktuel sagsnr. findes i Total
sh1.Cells(sh1.Cells(65500, "D").End(xlUp).Row + 1, "D") = Cells(t, "G") 'Skriver sagsnr i Total i næste tomme celle
sh1.Cells(sh1.Cells(65500, "E").End(xlUp).Row + 1, "E") = Cells(t, "E") 'Skriver timer i Total i næste tomme celle
Else ' Aktuel sagsnummer fantes allerede i Ark1
x = sh1.Range("D6:D20000").Find(Cells(t, "G"), LookIn:=xlValues).Address 'Finder cellen i Total hvor sagsnr er
sh1.Range(x).Offset(0, 1) = sh1.Range(x).Offset(0, 1) + Cells(t, "E") ' Timer adderes til aktuel sagsnr
End If
Next
End If
Next
rk = sh1.Cells(1000, "E").End(xlUp).Row + 1
sh1.Cells(6, "G").Formula = "=SUM(E6:E" & rk - 1 & ")"
Sheets(AktuelArk).Select: Range(AktuelCelle).Select 'Oprindelig Ark og celle gøres aktiv igen
Application.ScreenUpdating = True ' Skærmopdatering sættes til igen

End Sub

Sub xCopy()
For t = 3 To 54
Sheets("Uge1").Range("A1:I25").Copy Sheets(t).Range("A1")
Next
End Sub

Sub TALiG1()
For t = 2 To 54
Sheets(t).Range("g1") = t - 1
Next
End Sub


og den virker i og for sig ok, men jeg har så lavet en kopiering af felterne I25 fra ark 2 til 53 til ark 1 hvor  de står i en søjle. derefter vil jeg så lave en auto sum på dem.
Men ak og ve, søjlerne forsvinder når jeg kører min makro.

hjælp pls