اولا شكرا للعضو أبو حنين والعضو الـعيدروس على الاهتملم والمساعده
ثانيا لقد توصلت للحل بتغيير بسيط فى الكود
هذا هو الكود للافاده
Application.ScreenUpdating = False
Dim i As Long, ii As Byte
With Sheets("العملاء")
LR = [A9999].End(xlUp).Row
For i = 2 To LR
If .Cells(i, 1) = Range("d4") Then
For ii = 3 To 8
If IsEmpty(.Cells(i, ii)) Then
.Cells(i, ii) = Range("h52").Value
Exit For
End If
Next
End If
Next
End With
