Dim ws As Worksheet
 Dim SVOD As Worksheet
  Set SVOD = Worksheets("003")

 
 For Each ws In Worksheets
   If ws.Name <> SVOD.Name Then
   .....   
   End If
 
 Next

 Dim ws As Worksheet
 Dim SVOD As Worksheet
  Set SVOD = ThisWorkbook.Worksheets("сводный")
 
 For Each ws In  Workbooks("исходные данные").Worksheets
    .....
 Next

Sub Макрос2()
Dim Wb As Workbook, isel As Range
 Workbooks.Open (ThisWorkbook.Path & "\" & "Книга1.xls")
 Set Wb = ActiveWorkbook
ThisWorkbook.Activate
  For Each isel In Selection
   isel.Value = Evaluate("=SUM([" & Wb.Name & "]" & _
    Wb.Sheets( 1 ).Name & ":" & Wb.Sheets(Sheets.Count).Name & "!" & isel.Address & ")")
  Next isel
 Wb.Close False
End Sub

Option Explicit

Dim NewLine As Integer, Col As Integer, ToSheet As Worksheet


Sub RegularCopy(FName As String)
  Dim openwb As Workbook, FromSheet As Worksheet, FromRangeName As String, Lrow As Long, Frow As Long
   Workbooks.Open Filename:=ThisWorkbook.Path & "\Исходные данные\" & FName & ".XLS", UpdateLinks:=False
   Set openwb = ActiveWorkbook
   
 Dim ws As Worksheet
 For Each ws In openwb.Worksheets
   'первая строка в диапазоне, которую нужно копировать
   Frow =  3 
   'Имя Диапазона, в котором искать последнюю строку
   FromRangeName = Range(Cells( 1 ,  1 ).Address, Cells(Rows.Count, Col).Address).Address
    
    On Error Resume Next
   'нахождение последней строки в диапазоне
    Lrow = ws.Range(FromRangeName).Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    If Err.Number =  0  Then
    On Error GoTo  0 
    'Копирование значений диапазона
     ToSheet.Range(Cells(NewLine,  1 ).Address, Cells(NewLine - Frow + Lrow, Col).Address).Value = _
     ws.Range(Cells(Frow,  1 ).Address, Cells(Lrow, Col).Address).Value
     NewLine = NewLine - Frow + Lrow +  1 
    End If
    On Error GoTo  0 
  Next ws
  'закрытие книги
  openwb.Close False
End Sub
Sub Выбрать_данные()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
   
   '№ Последнего столбца для консолидации, первый считается "A".
   'Дейсвует как для исходных данных, так и для итоговых
   Col =  20 
   'Первая строка в которую заполняются значения
   NewLine =  3 
   'Лист на который будем копировать
   Set ToSheet = ThisWorkbook.Sheets("Лист2")
   'Открытие листа куда заполняются данные
   ToSheet.Select
   'Очистка предыдущих данных
   Range(Cells(NewLine,  1 ), Cells(Rows.Count, Col)).Clear
   
   'Запуск процедуры копирования по каждому файлу, сколько угодно раз.
   'В кавычках имя файла без расширения
   RegularCopy ("Файл1")
   RegularCopy ("Файл2")
   RegularCopy ("Файл3")

 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
End Sub

Set ToSheet = ThisWorkbook.Sheets("Лист2")