在Excel VBA中，可以使用以下代码将工作表的数据复制到另一个工作表上：

Sub CopyDataToWorksheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为源工作表的名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2") '将"Sheet2"替换为目标工作表的名称
    
    ' 设置源范围（包含表格的数据）
    Set sourceRange = sourceSheet.Range("A1:C10") '将"A1:C10"替换为表格的范围
    
    ' 设置目标范围（复制到的位置）
    Set targetRange = targetSheet.Range("A1") '将"A1"替换为目标位置的起始单元格
    
    ' 复制数据
    sourceRange.Copy Destination:=targetRange
End Sub

请根据实际情况修改代码中的工作表名称、表格范围和目标位置。