opdatering af felter

Jeg kører følgende:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Sh.Range("G7:G2000")) Is Nothing Then Exit Sub
If Application.CountA(Sh.Range("A" & Target.Row & ":F" & Target.Row)) <> 6 Then Exit Sub
On Error Resume Next
If Len(Target.Value) = 5 Then
Call Total
End If
If Len(Target.Value) <> 5 Then Beep: Beep
End Sub

det er meningen at den skal opdaterer på arket "total" når der sker en ændring i en af kolonnerne a til f men det virker kun på g

det hele er nærmere beskrevet her http://www.eksperten.dk/spm/808348

jeg er absolut ingen haj, men jeg håber på hjælp til det sidste, dvs at hvis der ændres i en af kolonnerne eler hvis en række slettes slal der opdateres på "total"