السلام عليكم ورحمة الله وبركاته ؛؛؛
الكود ده بينقل الارقام اللي اقل من 91 فى الشيت 2 عايز اكتب اقل من 90 الي 1 (90:1) بس مش عارف اعملها ياريت حد يساعدنى فيها
Sub CopyRows()
Dim LR As Long, I As Long, X As Long
LR = Sheets("Sheet1").Cells(Rows.Count, "g").End(xlUp).Row
X = 5
Application.ScreenUpdating = False
Sheets("Sheet2").Rows("5:1000").ClearContents
For I = 6 To LR
If Cells(I, "g").Value > 91 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1
Next I
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub