Sheet1.Cells(1).CurrentRegion.Offset(1).Copy _
    Sheet3.Cells(1).ListObject.Range.Columns(2).Find("*", , , , , 2).Offset(1)
Sheet2.Cells(1).CurrentRegion.Offset(1).Copy _
    Sheet3.Cells(1).ListObject.Range.Columns(2).Find("*", , , , , 2).Offset(1)