How would you make an input table?

%3CLINGO-SUB%20id%3D%22lingo-sub-2200262%22%20slang%3D%22en-US%22%3EHow%20would%20you%20make%20an%20input%20table%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2200262%22%20slang%3D%22en-US%22%3E%3CP%3EHello!%20I%20am%20working%20on%20a%20problem%20where%20I%20need%20to%20put%20a%20line%20of%20data%20from%20an%20input%20table%20to%20put%20at%20the%20end%20of%20another%20table%2C%20with%20supposed%20infinite%20length%2C%20and%20would%20then%20delete%20the%20table%20input%20from%20before.%20Would%20I%20need%20to%20use%20a%20button%20or%20something%20in%20the%20developer%20tab%3F%20The%20data%20table%20I%20am%20using%20is%20quite%20bulky%20and%20I%20would%20like%20to%20streamline%20it%20so%20I%20don't%20have%20to%20scroll%20all%20the%20way%20down.%20I%20am%20still%20learning%20Excel%20and%20this%20problem%20stumped%20me.%20Here%20are%20a%20few%20stages%20for%20what%20I%20am%20looking%20for%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAppreciate%20It!%20Thanks!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2200262%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2200458%22%20slang%3D%22en-US%22%3ERe%3A%20How%20would%20you%20make%20an%20input%20table%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2200458%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F993365%22%20target%3D%22_blank%22%3E%40Gebhi%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3ECreate%20a%20macro%20like%20the%20following.%20Replace%20TABLE%20and%20INPUT%20with%20the%20actual%20names%20of%20your%20tables.%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20MoveRow()%0A%20%20%20%20Dim%20tbl1%20As%20ListObject%0A%20%20%20%20Dim%20tbl2%20As%20ListObject%0A%20%20%20%20Set%20tbl1%20%3D%20ActiveSheet.ListObjects(%22TABLE%22)%0A%20%20%20%20Set%20tbl2%20%3D%20ActiveSheet.ListObjects(%22INPUT%22)%0A%20%20%20%20tbl2.ListRows(1).Range.Cut%20Destination%3A%3Dtbl1.ListRows.Add.Range%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%0A%3CP%3EYou%20can%20create%20a%20command%20button%20on%20the%20sheet%20and%20assign%20the%20MoveRow%20macro%20to%20it%2C%20or%20assign%20a%20custom%20keyboard%20shortcut%20(or%20both)%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

Hello! I am working on a problem where I need to put a line of data from an input table to put at the end of another table, with supposed infinite length, and would then delete the table input from before. Would I need to use a button or something in the developer tab? The data table I am using is quite bulky and I would like to streamline it so I don't have to scroll all the way down. I am still learning Excel and this problem stumped me. Here are a few stages for what I am looking for:

 

Appreciate It! Thanks!

 

 

 

4 Replies

@Gebhi 

Create a macro like the following. Replace TABLE and INPUT with the actual names of your tables.

Sub MoveRow()
    Dim tbl1 As ListObject
    Dim tbl2 As ListObject
    Set tbl1 = ActiveSheet.ListObjects("TABLE")
    Set tbl2 = ActiveSheet.ListObjects("INPUT")
    tbl2.ListRows(1).Range.Cut Destination:=tbl1.ListRows.Add.Range
    Application.CutCopyMode = False
End Sub

You can create a command button on the sheet and assign the MoveRow macro to it, or assign a custom keyboard shortcut (or both)

I tried that out and I got it working, but I need the data to go just below my previous data, not all the way at the bottom, apologies, as I am not sure about the notation, as I am still learning

@Gebhi 

Do you mean that your table has lots of empty rows?

I just realized what you did! That is so intuitive! I figured it out! Thank you so much!