解析：需要编写一个VBA代码，将Excel中sheet1表的A列数据复制到sheet2表A列的最后一行之下。

代码如下：

Sub CopyColumnA()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long

    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")

    lastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1

    ws1.Range("A:A").Copy Destination:=ws2.Range("A" & lastRow)
End Sub

这段VBA代码首先定义了两个工作表对象ws1和ws2，分别表示sheet1和sheet2。然后获取sheet2表A列的最后一行行号，接着将sheet1表的A列数据复制到sheet2表A列的最后一行之下。