Combine two columns into one from two sheets

Hello,

I have searched and tried some similar examples but cannot find a fit that works .I trying to combine two sheets into one .can someone please help me to modify the code

I want to do the following

sheet 1
date name amount
01/01/11 x 100


sheet2
date name amount
01/02/11 y 200


sheet3 (output sheet)

date name amount
01/02/11 x 100
01/02/11 y 200

Dim lastrowA As Long
Dim lastrowB As Long
Set srcsht = Sheets("sheet1")
Set dstsht = Sheets("sheet2")
lastrowA = srcsht.Cells(Cells.Rows.Count, "A").End(xlUp).Row
lastrowB = dstsht.Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
srcsht.Range("a1:a" & lastrowA).EntireRow.copy dstsht.Cells(lastrowB, 1)