Copy from wb2 and paste into ListObject in active workbook

[Spaceballs_the_fanboy]

Hi. I get an IE generated report once a week. I want to copy cells A4:E4 to the last value in those columns from this workbook (report.xls), from worksheet (report) and paste them into Table1 of the active workbook.

What I have tried so far always overwrites the Table and ends up converting the table back to a normal range.

Your help is much appreciated

 

[Norie]

This code will copy A4:E4 from the first sheet in 'Report.xls' to Table1 on the active sheet in the active workbook.

Dim tbl As ListObject
Dim rw As ListRow

    Set tbl = ActiveWorkbook.ActiveSheet.ListObjects("Table1")
    
    Set rw = tbl.ListRows.Add
    
    Workbooks("Report.xls").Sheets(1).Range("A4:E4").Copy rw.Range

 

[Spaceballs_the_fanboy]

This code will copy A4:E4 from the first sheet in 'Report.xls' to Table1 on the active sheet in the active workbook.

Dim tbl As ListObject
Dim rw As ListRow

    Set tbl = ActiveWorkbook.ActiveSheet.ListObjects("Table1")
    
    Set rw = tbl.ListRows.Add
    
    Workbooks("Report.xls").Sheets(1).Range("A4:E4").Copy rw.Range

Thank You. I am trying to copy everything in columns A4:E4. I tried something like this:

i = Range("A4:E4").End(xlDown).Offset(1).Row

but, it now pastes outside of the Table1.

 

[Norie]

Do you mean copy everything in columns A to E from row 4 down to the last row of data?

 

[Spaceballs_the_fanboy]

Yes I do.