Dim ws As Worksheet
Dim X As Integer
Dim rngSource1 As Range, rngSource2 As Range
X = 1
Set rngSource1 = Range("E6:E77")
Set rngSource2 = Range("O6:O77")
With ActiveWorkbook.Sheets("Data")
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Data" Then
.Cells(1, X) = ws.Name
ws.rngSource1.Copy
.Cells(2, X).PasteSpecial xlPasteValues
ws.rngSource2.Copy
.Cells(2, X + 1).PasteSpecial xlPasteValues
X = X + 2
End If
Next ws
End With