Hi,

You don't need a do loop, try this

Sub filldown()
If Range("J324").Formula 0 Then
Range("J324").Copy
Range("C88").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E225:E263").Copy
Range("l8500").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End If
End Sub

Mike

"dribler" wrote:

i need to place a criteria to enable the macro from stop its execution
if J324=0, then end
----
Sub filldown()
Do
If Range("J324").Formula 0 Then
Range("J324").Copy
Range("C88").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E225:E263").Copy
Range("l8500").End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
Loop
End Sub
-----
regards,
driller