excel vba copy table to another worksheet
Sub CopyTables()
dim oWs as worksheet '<- source sheet
dim oLo as listobject '<- table to be copied
dim oWsTarget as worksheet '<- worksheet to paste copied table
set oWs = Worksheets(1)
set oLo = oWs.ListObjects(1)
set oWsTarget = Worksheets(2)
oWs.oLo.Range.Copy _
Destination:=oWsTarget.Range("A1")
End Sub