Sub Консолидация_()
    Dim ws As Worksheet, sh As Worksheet, i As Long
    Application.ScreenUpdating = False: Set sh = Sheets("Итого")
    For Each ws In Sheets
      If ws.Name <> sh.Name Then
         i = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1: If i < 3 Then i = 3
         iLR = ws.Cells(1, "A").End(xlDown).Row
         ws.Range(ws.Cells(3, "A"), ws.Cells(iLR, "R")).Copy sh.Cells(i, "B")
      End If
    Next
End Sub