Range("i8").Formula = "=H8 + G8"
Range("i8").Select
Selection.AutoFill Destination:=Range("i8:i" & _
cells(rows.count,8).End(xlup).Row)

--
Regards,
Tom Ogilvy

"CLR" wrote:

Hi All........
I'm using the code below to try to AutoFill a formula down a column as far
as the column to the left has data therein. Getting varying
results.....sometimes it works right, sometimes 1 or 2 rows short, and
sometimes goes way past the present end of the adjacent column to where it
used to be last time there was data there.......please help.


Range("i8").Formula = "=H8 + G8"
Range("i8").Select
Selection.AutoFill Destination:=Range("i8:i" &
ActiveSheet.UsedRange.Rows.Count)

Vaya con Dios,
Chuck, CABGx3