Moving a row from one worksheet to the last row of a table on another worksheet

[mwamsley]

As stated I'm trying to move a row from one worksheet to the last row of a table on another worksheet. I'm trying to create a simple data entry sheet. I have an "Input" worksheet that has 4 "entry" rows and "Server" worksheet that has 4 tables in it that correspond with the 4 "entry" rows. Ideally I want to do this without VB, but I don't think that's possible. I have tried to get this to work a dozen ways, but this in my 1st time to use VB. So far I was working on this:

Sub Macro1()
'
' Macro1 Macro
'


'


Dim lastrow As Integer


lastrow = Worksheets("server").ListObjects("server_dc_a").ListRows.Count


Worksheets("Input").ListObjects("server_dc_a_input").Range.Copy Destination:=Worksheets("server").ListObjects("server_dc_a").ListRows(lastrow + 1).Range
lastrow = lastrow + 1
End Sub

But anything that will accomplish this is fine. also on the original "Input" worksheet I was wanting the entries to clear after it ran

 

[mwamsley]

to help make it easier to see what I'm trying to do, I went ahead an scrubbed the file and uploaded it to drop box:
https://www.dropbox.com/s/t92d7owfbw6zzg8/Server input scrubbed.xlsm?dl=0

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/excel-...-row-table-another-worksheet.html#post4505127

Please do not post the same question multiple times. All clarifications, directly-related follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you not to bump a thread more than once a day.