VBA跨表复制数据，结果粘贴为整表，如何解决？

Question

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

Answer 1

For m = 3 To Sheets("sheet1").UsedRange.Rows.Count
改为
For m = 3 To Sheets("sheet1").Range("A65536").End(xlUP).Row
Sheets("源数据").Rows(m + 5).Insert这一句删除追答

sheet1改为sheets(1)

追问

还是COPY 空的行

追答

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

Answer 2

从你的代码不能推断你要做什么，先阐述你的目的