关于宏代码错误求解~

Sub 汇总()
Sheets("汇总表").Select
r = Range("a65536").End(xlUp).Row + 1 '获取汇总表最后一行数据的下一行行号
For i = 2 To Sheets.Count '从第2个sheet开始到最后一个sheet
With Sheets(i)
n = .Range("a65536").End(xlUp).Row - 3 '统计该sheet中数据行数
Cells(r, 1).Resize(n, 5).Value = .Cells(4, 1).Resize(n, 5).Value '将a:e列数据写入汇总表
r = r + n '获取汇总表最后一行数据的下一行行号
End With
Next
MsgBox "汇总完成!请勿重复运行"
End Sub
这是我的一个宏代码 可是
Cells(r, 1).Resize(n, 5).Value = .Cells(4, 1).Resize(n, 5).Value '将a:e列数据写入汇总表
这一个代码是错的 错误代码是1004
跪求大神告知呀