sao tôi dùng vòng lặp và chạy 1 lệnh đã OK nhưng đến lệnh thứ 2

Thầy cho hỏi sao tôi dùng vòng lặp và chạy 1 lệnh đã OK nhưng đến lệnh thứ 2 chỉ sửa lại địa chỉ thôi mà VBA bắt lỗi 

Cụ thể như sau:

Sub loi_thoi()

    Dim i As Integer, j As Integer

    Dim dongcuoi As Long, S As Long, L As Long

    dongcuoi = Sheet9.Range("B" & Rows.Count).End(xlUp).Row

    S = 0

    L = 0

    For j = 7 To dongcuoi 

        Sheet8.Range("B" & j).ClearContents

        For i = 3 To dongcuoi

            If Sheet8.Range("A" & j) = Sheet1.Range("A" & i) Then

                    Sheet8.Range("C" & j).ClearContents

                    Sheet8.Range("B" & j).Value = Sheet1.Range("B" & i).Value

                    S = S + Sheet9.Range("I" & i).Value

                    L = L + Sheet9.Range("J" & i).Value     ( dòng bị bắt lỗi)

                    Sheet8.Range("C" & j).Value = S

                     Sheet8.Range("D" & j).Value = L

             End If

        Next i

            S = 0

            L = 0

    Next j_1

End Sub

link file đính kèm