Спасибо огромное !  
Этот VBA, млин, миллион вариантов и ненормативная лексика.

{quote}{login=Нубасик}{date=19.01.2012 01:07}{thema=}{post}Вот пока разобрался в коде поиска последней строки на первом листе и копирование диапазона с первой по последнюю строку. Как дальше быть?{/post}{/quote}  
Такая же задача, на соседнем форуме встретилось:  
 
Public Sub CopyPaste1()     ' эта функция копирует записи за сегодня и вставляет их в общую базу  
   Dim maxRowSrc As Integer, maxRowTrg As Integer  ' объявление переменных  
 
   maxRowSrc = GetMaxRow("СПИСОК")     ' определяем количество строк на листе "СПИСОК"  
   maxRowTrg = GetMaxRow("БАЗА")      ' определяем количество строк на листе "БАЗА"  
 
   ' копирование и вставка без всяких выделений - так проще и быстрее  
   Worksheets("СПИСОК").Range("2:" & maxRowSrc).Copy Sheets("БАЗА").Cells(maxRowTrg + 2, 1)  
End Sub  
 
Только вот подскажите, а как диапазон в Range задать не от второй строчки, а от i-ой.