السلام عليكم و رحمة الله وبركاته
وضعنا شرطا لكي يتعامل الكود مع الصفوف التي بها بيانات فقط
ويحدد قيمة او رقم الصف المراد الترحيل اليه
ووضعنا الكود
Sub az_trhill()
Dim FS As Worksheet, TS As Worksheet, RN1 As Range
Set FS = Sheets("ÇáÊÑÍíá")
Set TS = Sheets("ÇáÑÆíÓíÉ")
Set RN1 = FS.Range("I2:L2")
TR = FS.Range("N2")
For R = 7 To 101
If FS.Cells(R, 9) = True Then
TR = TR + 1
RN1.Copy
TS.Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
FS.Range("A" & R & ":H" & R).Copy
TS.Range("E" & TR).PasteSpecial Paste:=xlPasteValues
'FS.Range("A" & R & ":H" & R).ClearContents
End If
Next R
MsgBox "ÇáÍãÏ ááå Êã ÇáÊÑÍíá ÈäÌÇÍ - ÔßÑÇ áß"
End Sub
Book11.rar