首先，我们需要找到子表2A列有数据的最后一行。然后，将子表1A1:B10的数据复制到子表2A列有数据的最后一行的下一行。以下是使用VBA实现的代码：

Sub CopyData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim pasteRow As Long

    ' 设置工作表
    Set ws1 = ThisWorkbook.Worksheets("子表1")
    Set ws2 = ThisWorkbook.Worksheets("子表2")

    ' 获取子表1和子表2的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row

    ' 找到子表2A列有数据的最后一行
    For i = lastRow2 To 1 Step -1
        If Not IsEmpty(ws2.Cells(i, "A")) Then
            pasteRow = i + 1
            Exit For
        End If
    Next i

    ' 复制子表1A1:B10的数据，粘贴到子表2A列有数据的最后一行的下一行
    ws1.Range("A1:B10").Copy Destination:=ws2.Range("A" & pasteRow)
End Sub

将以上代码复制到Excel VBA编辑器中的一个新模块，然后运行该宏，即可实现将子表1A1:B10的数据复制到子表2A列有数据的最后一行的下一行。