If you are using Excel 97 with a Commandbutton from the Control Toolbox
Toolbar, then try setting the buttons takefocusonclick property to false.

Anyway, this worked for me and may give you some ideas:

Sub tester1()
Dim rw As Long
Dim sourceRange As Range, fillRange As Range

rw = ActiveCell.Row
Cells(rw - 1, 10).Formula = _
"=IF(G14=""x"",0,I14/Sum(A14,Dolar!$B$4:$C$3680,2))"
Set sourceRange = Range(Cells(rw - 1, 10), Cells(rw - 1, 10))
Set fillRange = Range(Cells(rw - 1, 10), Cells(rw, 10))
sourceRange.AutoFill Destination:=fillRange

End Sub

You should use a comma if assigning the formula in VBA and using the Formula
property - if using FormulaLocal, then you can use the semicolon. I didn't
know what the function PROCV was, so I just used Sum. However, you said it
works one time, so the formula shouldn't be the source of the problem unless
it would cause an error because of where it is being entered.

--
Regards,
Tom Ogilvy

"Leonardo Koblitz" wrote in message
...
Hi,
I make a form with a insert button. Part of my code is to
repeat a formula like =IF(G14="x";0;I14/PROCV(A14;Dolar!
$B$4:$C$3680;2)) on the next cell.
I use this command
Set SourceRange = Range(Cells(row- 1, 10), Cells(row- 1,
10))
Set fillRange = Range(Cells(row- 1, 10), Cells(row,
10))
SourceRange.AutoFill Destination:=fillRange,

This code works well in the first time, after that, when I
press the insert button again, the process stop with the
following message
The method Auto Fill of class Range failed
Sincerely,

Leonardo