实现跨表复制粘贴功能出现区域外的数据粘贴

breathe88

我想要实现的功能是，把表sheet1中A：H列的数据逐条数据复制到表“源数据”的第8行开始。 我运行了下面的代码后，出现表sheet1中A:H的数据也同时复制到表“源数据” H列后整个表中。 请高手帮忙解答。谢谢！

Sub 跨表复制数据()

On Error Resume Next

Application.ScreenUpdating = False

Application.DisplayAlerts = False

  Dim m As Integer

   For m = 3 To Sheets("sheet1").UsedRange.Rows.Count

     Sheet1.Range(Cells(m, 1), Cells(m, 8)).Copy

     Sheets("源数据").Select

     Sheets("源数据").Rows(m + 5).Insert

     Sheets("源数据").Range(Cells(m + 5, 1), Cells(m + 5, 8)).Select.Paste

   Next m

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub