Need help AutoFilling a formula in a column

[pawest]

Hello,
I'm pulling data from a CSV file. The CSV file has a "Quantity" column that contains the absolute value of the quantity. I want to add a new "Qty" column and an if statement to say if certain criteria is met, make the value negative.

Here's what I have so far from the recorder... weirdly, this works on one spreadsheet and not another when referencing the same data... how can I make this better and more dynamic?

        Range("W1").Select
        ActiveCell.FormulaR1C1 = "Qty"
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveCell.FormulaR1C1 = "=IF(RC[-24]=""B"",RC[-23],RC[-23]*-1)"
        Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & finalRow)

 

[AlphaFrog]

Norie,

finalRow = Cells(Rows.count, 1).End(xlUp).Row

You were on to something. I was referencing W which doesn't contain the range of data, obviously just the value in W.

However, I switched it to: finalRow = Range("A1048576").End(xlUp).Row

...and it still caused the same error.

Can you show all your code? Are you calculating Finalrow for different sheets?

 

[pawest]

Norie, your code worked! Thanks everyone for helping!