Giúp khắc phục lỗi code tìm kiếm và xóa (1 người xem)

[congnguyen88]

Dim Rng As Range, sRng As Range
Set Rng = Range("C4:C53") ' vung tim
Set sRng = Rng.Find([N3].Value, , xlFormulas, xlWhole) ' c1 la o nhap de tim
If Not sRng Is Nothing Then
If sRng.Offset(0, 1) = 0 Then
sRng.Resize(, 3).ClearContents
Else
End If
End If

Cột C : là cột tên hàng
Cột D: là cột số lượng
Cột E: cột thành tiền

Ý của mình là tìm kiếm tên hàng khi nhập tên hàng vào ô N3 nếu tìm kiếm thấy tên hàng mà có số lượng bằng 0 thì xóa hết hàng đó từ cột C đến cột D là
sRng.Resize(, 3).ClearContents cái này sai gì đâu mà sao nó bảo lỗi vậy
Mọi người ai biết giúp mình với

 

[bogay]

Code chạy bình thường mà, có thấy lỗi gì đâu

 

[ChanhTQ@]

Code chạy bình thường mà, có thấy lỗi gì đâu

Có thể fát sinh lỗi, 1 khi 1 (hay 1 vài ô) trong các ô cần xóa dữ liệu lại được đem trộn với các ô ngoài chúng.