:)) я просто сама поняла как исправить  
 
УФ! Я счастлива!! Мучилась целую неделю!!!!    
 
Еще раз спасибо!!! =)

Всё, теперь вроде работает!!!    
 
Спасибо вам огромнейшее Hugo и KukLP за помощь!!!!!!! =)

Ура! Вы супер! Работает! =)  
 
Но только с одним файлом. Если файла два - он вставляет поверх прежних данных (((  
 
и еще вопрос: можно ли сделать так, чтобы он начинал копировать не с первой строки а с 6-ой?  
где это нужно исправить?

:) Этот бред написала я... просто я еще только учусь :)  
 
Спасибо огромнейшее, теперь работает!!!!    
 
НО...  
 
Пожалуйста, скажите, как сделать, чтобы не копировал 60 000 строк, а только те, что заполнены?

описана... может я тут код покажу, чтобы нагляднее было?    
 
 
Sub TMsvodka(strFileName As String)  
 
Dim wbkI As Workbook 'исходники  
Dim shtI As Worksheet    
Dim rgI As Range    
Dim strFile As String    
Dim Srow As Long    
Dim i As Long    
Dim Scol As Long    
 
Dim wbkSv As Workbook  'сводный  
Dim shtSv As Worksheet    
Dim rgSv As Range    
Dim SvRow As Long    
Dim SvCol As Long    
 
Set wbkSv = ThisWorkbook    
Set shtSv = wbkSv.Worksheets("Сводка")    
Set rgSv = shtSv.Range("A8").CurrentRegion    
   
   
Set wbkI = Application.Workbooks.Open(strPath & "\" & strFileName)      
Set shtI = wbkI.Sheets("data")    
Set rgI = shtI.UsedRange    
 
Srow = rgI.Rows.Count    
Scol = 17    
 
SvRow = rgSv.Rows.Count    
SvCol = 17    
 
For i = 1 To Srow    
   rgI.Range(rgI.Cells(i, 17)).Copy  
   rgSv.Cells(SvRow + 1, 17).PasteSpecial xlPasteValuesAndNumberFormats  
   Application.CutCopyMode = False  
Next i  
 
wbkI.Close False      
shtSv.Range("A8").Select  
 
End Sub

Спасибо большое!!! только теперь выдает другую ошибку (((    
 
Application-defined or object-defined error  
 
в чем может тут может быть дело? ругается на строчку:  
 
rgI.Range(rgI.Cells(i, 17)).Copy

Всем доброго дня!  
 
Помогите, пожалуйста, с кодом, мне не понятно почему происходит ошибка… ((  
 
Задача макроса: в цикле открывать файлы (их может быть до 200 шт) – выбирать диапазон заполненных ячеек, копировать и вставлять значения ячеек в файл «сводный» на один лист друг под другом.  
 
Те готовые решения, что  я нашла на сайте к моей задаче  к сожалению не подходят, потому что во-первых  мои исходники защищены паролем, во вторых 2007 excel (для 2003 версии есть работающий макрос).  
 
При работе макрос выдает ошибку: overflow  
 
Примеры во вложении (сводный файл, и файлик, откуда копируются данные)  
 
Очень-очень вас прошу мне помочь!!!