Hi:

I guess it is vary basic error but as I am new to the field, I am having hard time solving the error. Here is the what I am trying to do:

I have three columns in excel sheet. One column has number and another two columns have text. I am trying to sum numbers from the number column based on matched string in text columns. I do this very often. SO created macro for this. But, it is giving me run time error:Application-defined or Object-defined error.

Here is the code:

Range("R8").Select


ActiveSheet.Paste
Range("R8").Select
ActiveCell.FormulaR1C1 = "=IF(SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) = 0, """", SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) )"
Range("R8").Select
ActiveSheet.Copy
Range("R9").Select
ActiveSheet.Paste
Range("R9").Select
Selection.AutoFill Destination:=Range("R9:R469")
Range("R9:R469").Select

Greatly appreciate any help!!!!

look at this line:
ActiveCell.FormulaR1C1 = "=IF(SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) = 0, """", SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) )"
on the left side, reference style is R1C1, on the right side is another reference style

R1C1 reference style looks like this: ActiveCell.FormulaR1C1 = "=R[-3]C[-1]-R[6]C[-1]"
you should use: ActiveCell.Formula ="your formula" to match the formula reference style

Ohh Great!!! I have wasted my 2 hours and could not figure out!! Now, It worked!!

Thanks a ton!!!

you're wellcome

FWIW, it seems to me the code could be reduced to:
As you'll see, you don't need to select cells to work with them. I left the final selection in place, though, as I don't know what you want to do next.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]