VBA jak znaleźć ostatni rząd i wkleić dane poniżej w przypadku obiektu tabela.

Polecam lekturę: http://www.reddit.com/r/excel/comments/2ky11l/vba_how_to_find_the_first_empty_row_in_a_sheet/ Ponadto, kilka rozwiązań znalazłem tutaj: http://blog.contextures.com/archives/2011/06/24/last-row-incorrect-with-excel-table/ i tutaj
http://www.reddit.com/r/excel/comments/2ky11l/vba_how_to_find_the_first_empty_row_in_a_sheet/
 1. Rozszerzenie zakresu tabeli.

   With Sheets("Oferta")
    
     lastrow = .Range("c65536").End(xlUp).Offset(1, 0).Row
     .ListObjects("Table3").Resize .Range("$A$6:$M$" & lastrow)

'następnie wklejam dane

     .Range("A" & lastrow).CopyFromRecordset Myrecordset
    
  
   End With

2. Użycie wyszukiwania pierwszej pustej komórki.

LastRowWithAnyDataInIt = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1