Datagrundlag

Jeg ville lave en makro, der gør det.

Det nemmeste ville være at optage en makro, der markerer og kopierer dine data fra start til slut (med End-Home). Data kopieres til et nyt ark.

Denne rutine lader du gennemløbe en løkke, der tager data fra første til sidste ark.

Er det samme kolonneheader på alle ark ?

Ja, der er samme kolonneheader på alle ark.

Lav 8 SUM.HVIS-formler, som du lægger sammen.

denne makro opretter et nyt ark og kopierer alle data over i det.
den laver ingen header og der må ikke være "huller" i data

Sub test2()
Dim x As Integer
Dim r As Range
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
For x = 1 To Worksheets.Count - 1
    Sheets(x).Activate
    Set r = Range("a2").CurrentRegion.Offset(1, 0).Resize(, 4)
    r.Copy Worksheets(Worksheets.Count).Range("A65536").End(xlUp).Offset(1, 0)
Next
End Sub

hvis der er "huller" i data og headeren skal med.
Sub test2()
Dim x As Integer
Dim r As Range
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
For x = 1 To Worksheets.Count - 1
    Sheets(x).Activate
    If x = 1 Then
      Set r = Range("a1:d" & Range("A65536").End(xlUp).Row)
      r.Copy Worksheets(Worksheets.Count).Range("A65536").End(xlUp)
    Else
      Set r = Range("a2:d" & Range("A65536").End(xlUp).Row)
      r.Copy Worksheets(Worksheets.Count).Range("A65536").End(xlUp).Offset(1, 0)
    End If
Next
End Sub

Bak - Tak, det er helt perfekt!