السلام عليكم
جرب التالي
Sub kh_Start()
Dim M As Long
On Error GoTo 1
M = WorksheetFunction.Match(ورقة1.[F4], ورقة2.Range("A2:A10000").Value, 0)
With ورقة2.Cells(1, "A").End(xlUp).Offset(M, 0)
.Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9"))
End With
ورقة1.Range("F4:F9").ClearContents
MsgBox " تم التعديل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله"
1:
If Err Then MsgBox "استخدام خاطىء": Err.Clear
End Sub
تحياتي