表1的A BCdef和j列从第三行开始到最后一行的值复制放到表2的BCDEFGH列的第二行开始放数据，用VBA代码写

好的，以下是实现您所需功能的VBA代码：

Sub CopyColumns()
    Dim lastRow As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    '设置表1和表2
    Set ws1 = ThisWorkbook.Sheets("表1")
    Set ws2 = ThisWorkbook.Sheets("表2")
    
    '获取表1最后一行
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    '复制表1的A、B、C、D、E、F和J列从第三行开始到最后一行的值到表2的BCDEFGH列
    ws1.Range("A3:A" & lastRow).Copy ws2.Range("B2")
    ws1.Range("B3:B" & lastRow).Copy ws2.Range("C2")
    ws1.Range("C3:C" & lastRow).Copy ws2.Range("D2")
    ws1.Range("D3:D" & lastRow).Copy ws2.Range("E2")
    ws1.Range("E3:E" & lastRow).Copy ws2.Range("F2")
    ws1.Range("F3:F" & lastRow).Copy ws2.Range("G2")
    ws1.Range("J3:J" & lastRow).Copy ws2.Range("H2")
    
End Sub

注意：在使用此代码前，请将代码中的表1和表2名称替换为您所使用的实际工作表名称。