多个表格合并 程序遇到问题求助

1094947665

合并后a8一行被表2覆盖

表1。2。3 合并，表2内容覆盖表1的最后一行，表3内容覆盖表2的最后一行，程序怎么改，请行家帮一的手
程序如下：
Private Sub CommandButton1_Click()
Dim Hzsht, Tjsht As Worksheet
Dim RowHz, RowTj As Long, Yn As Boolean
  
For Each sht In Sheets
    If sht.Name = "汇总" Then
        Yn = True
        Exit For
    End If
Next
If Yn = False Then
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "汇总"
End If
Set Hzsht = Sheets("汇总")
For i = 2 To 4
    Set Tjsht = Sheets(i)
    RowHz = Hzsht.UsedRange.Rows.Count
    RowTj = Tjsht.UsedRange.Rows.Count
    Tjsht.Rows("2:" & RowTj).Copy Hzsht.Range("A" & RowHz + 1)
Next
End Sub