Table data body range copy

[JST013]

Hello mr excel,

I have made a fairly small data entry program in excel VBA. It runs very well, but now there is need to have simultaneous dual data entry...scary stuff in excel I know! To get around having two users on one workbook at the same time, I'm simply going to duplicate the original program and have both workbooks save the data entry into one workbook. This is where my problem is. I'm not sure how to go about doing this...

I am thinking I will need a macro to copy the data body range of the named tables into the bottom(as new rows) of a separate workbook's table. I would then like to delete the data body range of the original table...

Range("Table1").Select
Selection.copy

This is as far as I have gotten..but I'm thinking there might be a better way...


This macro will ideally run before closing or upon saving the workbook, but this part I know how to do

 

[JST013]

 Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Range("BOOK5TABLE").consolidate Sources:=Array("'C:\Desktop\practice\Book1.xlsx'Sheet1!BOOK1TABLE", _
    "'C:\Desktop\practice\Book4.xlsx'Sheet1!BOOK4TABLE")

found a nifty consolidate method...however not only can I not get it to run...I don't really want to "consolidate" the information either...well at least not by excel's definition.. I wish to combine not SUM

I was testing on some random data to see the effects...isn't working so far... I really just want to drop the current data onto a running table...