Пробуйте. Макрос берет данные из активного листа и сохраняет файлы в папке, где находится активная книга, с именем активной книги с добавлением номера в виде "_000".  
 
Const ROWS_IN_PART = 500 'число строк в части файла  
 
Sub николай100()  
Dim i&, j&, ws As Worksheet, nm$  
Set ws = ActiveSheet  
nm = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & "_"  
Application.ScreenUpdating = False  
For i = 1 To ActiveSheet.UsedRange.Rows.Count Step ROWS_IN_PART  
   With Workbooks.Add(xlWBATWorksheet)  
       Range(ws.Rows(i), ws.Rows(i + ROWS_IN_PART - 1)).Copy ActiveCell  
       j = j + 1  
       .Close True, nm & Format(j, "000")  
   End With  
Next  
Application.ScreenUpdating = True  
End Sub