Dim j As Integer

        'change "Summary" to the sheet name that is true for you'
        Set summarySheet = ThisWorkbook.Worksheets("Summary")

         'number of first row where need to paste in summary sheet'
         j = 2
        'loop throught all sheets'
       For Each sh In ThisWorkbook.Worksheets
       If sh.Name <> summarySheet.Name Then
        summarySheet.Range("B" & j & ":AF" & j).Value = _
            sh.Range("D5:AH5").Value
        j = j + 1
        End If
        Next
        End Sub

EG
    Sheet 1
Row 5   1ET 2LT 3ET 4 5 6  7ET 8ET
    ===========================
Row 37  16  32   2         45  67

Sheet 2

Row 5    1 2  3LT 4ET 5ET 6LT 7 8LT
         ===========================
Row 37        23  33 13  22     34


    SUMMARY SHEET

        ET  LT
   1    16
   2        32
   3    2   23
   4    33
   5    13
   6
   7    45
   8    67  34
   9
   Etc