Sub Wolf()
Sheets(" ").Select
Windows("a.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B5:y5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("b.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B6:y6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("c.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B7:y7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("d.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B8:y8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("e.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B9:y9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("f.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B10:y10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("g.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B11:y11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("h.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B12:y12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("i.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B13:y13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("j.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B14:y14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("k.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B15:y15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("l.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B16:y16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("m.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B17:y17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("n.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B18:y18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("o.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B19:y19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("p.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B20:y20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("q.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B21:y21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("r.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B22:y22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("s.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B23:y23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("t.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B24:y24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("u.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B25:y25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("v.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B26:y26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("w.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B27:y27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("x.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B28:y28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("y.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B29:y29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("z.xlsx").Activate
Range("B5:y5").Select
Selection.Copy
Windows("data.xlsm").Activate
Range("B30:y30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
