nærmere forklarin

er det forklaring til de enkelte linier du mener ?

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("Ark1"): sh1.Activate 'sh1 sættes=Ark1, er lettere at skrive flere gange : sh1 aktiveres
sh1.Range(Range("A2"), 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 = 2 To sh.Cells(65000, 1).End(xlUp).Row ' Finder nederste række med værdi i kolonne A
If Application.CountIf(sh1.Range("A2:A20000"), Cells(t, 1)) < 1 Then 'Test om aktuel sagsnr. findes i Ark1
sh1.Cells(sh1.Cells(65500, 1).End(xlUp).Row + 1, 1) = Cells(t, 1) 'Skriver sagsnr i Ark1 i næste tomme celle
sh1.Cells(sh1.Cells(65500, 2).End(xlUp).Row + 1, 2) = Cells(t, 3) 'Skriver timer i Ark1 i næste tomme celle
Else ' Aktuel sagsnummer fantes allerede i Ark1
x = sh1.Range("A1:A20000").Find(Cells(t, 1), LookIn:=xlValues).Address 'Finder cellen i Ark1 hvor sagsnr er
sh1.Range(x).Offset(0, 1) = sh1.Range(x).Offset(0, 1) + Cells(t, 3) ' Timer adderes til aktuel sagsnr
End If
Next
End If
Next
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

super svar pls.
jeg spørge måske lidt mere på et tidspunkt

ok