Tables: Paste the values from one table to another

[gheyman]

Is there a way to have one column in a table equal a column in another table?

The first table source can vary in number of rows depending on what the user enters.

The first table, where the data is coming from is titled "TableItemID" its on a tab name ItemID and the Field I want to use is called [ItemID]
The second table where I want to always have matching data is titled TableItemIDCP and the field in that one is also call [ItemID]

I assume VBA.

Thanks

 

[gheyman]

I got it

I named (range) the field in table I wanted to copy from and used that to paste into the table I wanted to move the data to.
(first I cleared the date in the second table before pasting)

Sub AppendTable()

'Clear table
    Application.ScreenUpdating = False
    
    Sheet5.Activate

    ActiveSheet.ListObjects("TableItemIDCP").HeaderRowRange.Select
    'Remove the filters if one exists.
    If ActiveSheet.FilterMode Then
    Selection.AutoFilter
    End If
    'Clear all lines but the first one in the table leaving formulas for the next go round.
    With Worksheets("ItemIdCP").ListObjects("TableItemIDCP")
    .Range.AutoFilter
    On Error Resume Next
    .DataBodyRange.Offset(1).Resize(.DataBodyRange.Rows.Count - 1, .DataBodyRange.Columns.Count).Rows.Delete
    .DataBodyRange.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
    ActiveWindow.SmallScroll Down:=-10000

    End With
    
'Copy ItemID and Paste into TableItemIDCP
    
    Range("ItemIDRange").Copy
    Range("B21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Application.ScreenUpdating = True

    Sheet1.Range("B21").Activate

End Sub