合并3列相同内容单元格时出现“溢出”错误，代码：6

一生一谁

各位老师好，新人小白一枚，最近想用VBA，将单元格前3列相同内容合并，出现“运行时错误：6，溢出”，知识有限，百思不得其解，反复试验，如果只合并前2列相同内容，则不会出现溢出，如果要合并3列，则会出现溢出的情况，还请各路大师修改指正，小弟在这里万分感谢，代码，错误截图如下，附件如下
Sub peihuo()
Application.ScreenUpdating = Fasle
Sheets("打印-清单").Range("A:G").UnMerge
Sheets("中转-源数据处理").Range("A:G").Copy
Sheets("打印-清单").Range("A:G").PasteSpecial Paste:=xlPasteValues
Sheets("打印-清单").Range("A:G").Sort [A2], 2, [B2], , 2, [C2], 2, 0, 1, 0, 1, 1, 1
Dim i%
Application.DisplayAlerts = False
For j = 1 To 3
For i = Sheets("打印-清单").[A1000].End(xlUp).Row To 2 Step -1
If Cells(i, j) = Cells(i - 1, j) Then
Range(Cells(i, j), Cells(i - 1, j)).Merge
End If
Next
Next
Application.DisplayAlerts = True
Sheets("打印-清单").Rows(1).Insert
If Sheets("源文件").Range("U2").Value = "吴云英" Then
Sheets("表头").Rows(2).Copy Sheets("打印-清单").Rows(1)
Else
Sheets("表头").Rows(2).Copy Sheets("打印-清单").Rows(1)
End If
Application.ScreenUpdating = True
End Sub