Sub Sbor()
Dim Sht As Worksheet
Dim FoundDate As Range
    For Each Sht In Worksheets
      If Sht.Name <> "Итог" Then        ' кроме листа "Итог"
        With Sht
          Set FoundDate = Rows(1).Find(.Range("B1"), , xlValues, xlWhole)
          If Not FoundDate Is Nothing Then
            .Range("B2:B3").Copy Cells(2, FoundDate.Column)
          End If
        End With
      End If
    Next
End Sub

Sub Sbor()
Dim Sht As Worksheet
Dim F_Day As Integer
Dim E_Day As Integer
Dim i As Integer
Dim j As Integer
   Range("D3:G7").ClearContents     'очищаем диапазон
   F_Day = Day(Range("B1"))         'первый день
   E_Day = Day(Range("C1"))         'последний день
    For Each Sht In Worksheets      'цикл по листам
      If Sht.Name <> "Итог" Then    ' кроме листа "Итог"
        If Val(Sht.Name) >= F_Day And Val(Sht.Name) <= E_Day Then
         With Sht
            For i = 3 To 7
              For j = 4 To 7
                Cells(i, j) = Cells(i, j) + .Cells(i, j - 1)
              Next
            Next
          End With
        End If
      End If
    Next
End Sub