لا بل أريد أن يكون تعديل الفاتورة في مكانه أي مثل ما في الصورة مكان الفاتورة رقم 1 في الصفوف الأولى بعد التعديل نزلت إلى الصفوف الأخيرة
السلام عليكم
وجدت هذا الحل هل هو ملائم
If StrSearch <> Application.WorksheetFunction.Max(d.Range("A3:A" & d.[A10000].End(xlUp).Row)) Then
r = d.Range("A:A").Find((StrSearch), LookAt:=xlWhole).Row
s = d.Range("A:A").Find((StrSearch + 1), LookAt:=xlWhole).Row
d.Range("A" & r & ":F" & d.[F10000].End(xlUp).Row).Cut
d.Range("A" & s).EntireRow.Insert Shift:=xlDown
End If
فاتورة1.xlsm