Lọc dữ liệu bị lỗi (2 người xem)

[baquang1984]

Em được các thầy và anh chị trên diễn đàn viết giúp Code VBA này em sử dụng Code đó vào chương trình của mình thì bị lỗi mong được mọi người giúp đỡ
Đối với chương trình này làm việc như sau. Dữ liệu nguồn ở Sheets"DATA", Sheets chạy biểu là Sheets"Bieu_05"
Em lọc danh sách các chủ quản lý theo số Chứng minh nhân dân ở cột CMND1 Sheets"DATA" sang Sheets"Bieu_05". Điều kiện lọc là khi em chọn thôn em muốn lọc ở Combo Box và phải thỏa mãn điều kiệm Ma = 1 (Cột Ma ở Sheets"DATA")
Vùng dữ liệu lọc sang đươc thể hiện ở vùng từ Cột [M:O], tuy nhiên khi thực hiện lệnh thì em bị báo lỗi Module Code VBA của em có tên là Loc_DATA và Sub Loc_Thon()

'----------------------------------------
'Loc danh sach ben tao bieu 5A
'----------------------------------------
Public Sub Loc_Thon()
Dim I As Long, k As Long, sArr(), dArr(), DK, Ma As Long, Temp As String
With Sheets("DATA")
    sArr = .Range(.[A2], .[A65536].End(xlUp)).Resize(, 44).Value2
End With
With Sheets("Bieu_05")
   DK = UCase(.[J5])
    Ma = .[K5].Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 3)
For I = 1 To UBound(sArr, 1)
    Temp = sArr(I, 5)
    If sArr(I, 44) = Ma And DK <> "" Then
        If Not Dic.Exists(Temp) Then 'Dòng này bị báo lỗi
           k = k + 1
            Dic.Add Temp, "" 
           dArr(k, 1) = k 
           dArr(k, 2) = sArr(I, 5)
            dArr(k, 3) = sArr(I, 2)
        End If
End If
Next I
With Sheets("Bieu_05")
    .[M2:O60000].ClearContents
    .[M2].Resize(k, 3).Value2 = dArr
End With
Set Dic = Nothing
End Sub

Em cảm ơn mọi người!