thanks mate , but i did the same change and its doesnt work
it copy only CP cell and not A:CP (i've change the 17(q) to 94(CP)

thats how it look here now

Sub Stantive()
srcSheet = "12.2008"
dstSheet = "תיקונים"
lastrow = Sheets(srcSheet).Cells(Cells.Rows.Count, "CP").End(xlUp).Row
Set MyRange = Sheets(srcSheet).Range("CP1:CP" & lastrow)
For Each c In MyRange
If IsNumeric(c.Value) And c.Value 0 Then
Set c = c.Resize(, 94)
lastrow = Sheets(dstSheet).Cells(Cells.Rows.Count, "A").End(xlUp).Row
c.Copy Destination:=Sheets(dstSheet).Range("A" & lastrow + 1)
End If
Next
End Sub


--
ganja
------------------------------------------------------------------------
ganja's Profile: http://www.thecodecage.com/forumz/member.php?userid=54
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=38215