Assuming your table B is in sheet2 and table A is in sheet1 then
Sub test()
Sheets("Sheet2").Range("TableB").Copy
Sheets("Sheet1").Range("TableA").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False
End Sub