Lỗi Overflow

[bibim2014]

Kính gửi anh, chị, em trong diễn đàn.
Mình có 1 file đang sử dụng code VBA bình thường, nhưng hôm nay mở ra chạy code thì nó báo là overFlow. Mình có tìm hiểu trên mạng và sửa nhưng vẫn chưa được.

Mong mọi người giúp đỡ.

 

[befaint]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, dArr(1 To 1000, 1 To 10), I As Long, J As Long, K As Long
Dim lastRow As Long
With Sheet5
    lastRow = .Range("C" & Rows.Count).End(xlUp).Row
    If lastRow < 7 Then MsgBox "khong co du lieu!": Exit Sub
    Arr = .Range("C7:R" & lastRow).Value2
End With
Application.ScreenUpdating = False
If Target.Address = "$F$7" Then '// F7 not F4

 

[bibim2014]

@befaint Lâu quá không gặp anh! Cám ơn anh.
Good night!