[求助]：写了段代码出了点问题不知道怎么解决

smile911

Public Sub 对比复制()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim u As Integer
Dim m As Integer
Dim k As String
Dim l As String
Dim o As Integer
Dim p As Integer

X1 = "请输入表2行数"
u = InputBox(X1)
X2 = "请输入表1行数"
m = InputBox(X2)
X3 = "请输入表1名称"
k = InputBox(X3)
X4 = "请输入表2名称"
l = InputBox(X4)
X5 = "请输入表1列数"
o = InputBox(X5)
X6 = "请输入表2列数"
p = InputBox(X6)

For i = 1 To u
For j = 1 To m
If Sheets("l").Cells(i, 1) = Sheets("k").Cells(j, 1) Then
Sheets("l").Select
Cells(i, p).Select
Selection.Copy
Sheets("k").Select
Cells(j, o).Select
ActiveSheet.Paste
End If
Next j
Next i
End Sub
--------------------------------------------------------------
执行到If Sheets("l").Cells(i, 1) = Sheets("k").Cells(j, 1) Then就出问题了
提示错误9 下标越界
会VBA的兄弟帮忙解决一下，谢谢！