高手们帮我看看这段代码有何问题？

Sub test()
    Dim i As Integer
    Dim j As Integer
        For i = 7 To 12
            For j = 5 To 400
                If Sheet(1).Range("AKi") = Sheet(1).Range(Aj) Then
                   Sheet(1).Range(Bj) = Sheet(1).Range(ALi)
                   Sheet(1).Range(Cj) = Sheet(1).Range(AMi)
                        Exit For
                End If
            Next j
        Next i
End Sub
如题，小弟刚开始学，望莫取笑~~~