سلام علی

بهتره اول فرمت ستون مربوط به کد کالا را از حالت text خارج و به فرمت عدد تبدیل کنید. در این صورت اعداد مثبت به معنای ورود کالا و اعداد منفی به معنای خروج کالا خواهد بود. در ادامه هم با اجرای کد ذیل کالاهایی که پس از ورود از انبار خارج شده اند از لیست حذف می شوند:

======================================

Sub Remove_Row()

Dim R, Prd_Dbl, Prd_Code As Double

On Error Resume Next
For R = 2 To 100000

Prd_Dbl = 0
Prd_Code = Cells(R, 1)
If Prd_Code = 0 Then Exit For
Prd_Code = -Prd_Code
Prd_Dbl = Application.WorksheetFunction.Match(Prd_Code,Range(Cells(R + 1, 1), Cells(100000, 1)), 0)

If Prd_Dbl > 0 Then

Range(Cells(R, 1), Cells(R, 4)).Delete xlUp
Range(Cells(Prd_Dbl + R – 1, 1), Cells(Prd_Dbl + R – 1, 4)).Delete xlUp
R = R – 1

End If

Next R

End Sub

=======================================================