تم اختصار الكود
sub aaa()
for i=3 to 10000
If Range( i , "Y").Value > 0 Then
cells(i,"y").Select
Selection.Copy
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("RECIPT").PrintOut COPIES:=1
End If
next
end sub