Chào em dùng hàm sumifs trong VBA khi chạy thử thì gặp lỗi mismatchem mới chạy

Chào ad,em dùng hàm sumifs trong VBA khi chạy thử thì gặp lỗi mismatch,em mới chạy thử công thưc sumifs đầu thì gặp lỗi ở chỗ biến CM lỗi mismatch

Sub Tinh_Toan()

            Dim DC As Long, CM As Integer, SB As String, BC As String, k As Variant, i As Variant

            DC = Sheet1.Range("A" & Rows.Count).End(xlUp).Row 'Tim dong cuoi

            CM = Sheet1.Range("F" & i) ' CM  la ma so don hang

            SB = Sheet1.Range("E" & i)  'SB la ma BOM

            BC = Sheet1.Range("G" & i) 'BC la ma NVL

             k = 7

            'Duyet qua tung dong

            For i = 2 To DC

                     With Sheet2

                     'Tinh dinh muc

                     .Range("D" & k) = WorksheetFunction.SumIfs(CM, SB, Range("A" & i), BC, Range("B" & i))

            '  Sheet2.Range("A" & k, "G" & k) = Sheet1.Range("A" & i, "G" & i).Value

            '.Range("D7:D" & lr) = "=SUMIFS(注文数量,製造番号,A7,部品コード,B7)/$J$2"

'            .Range("A" & i, "G" & i).Value

                                k = k + 1

   Next

  End Sub