Sub Masoudhosseini()
Dim LastRow As Integer
Dim i As Integer

Sheets(2).Range("1:1").Copy Sheets("Sheet1").Range("A1")

For i = 2 To Sheets.Count

    LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets(i).Range("A1").CurrentRegion.Offset(1, 0).Copy Sheets("Sheet1").Range("A" & LastRow)

Next i

End Sub