I need a macro that can copy

[Paul]

I guess that this is a simple question

Column A: Cell A1 contains a formula like C1*3
Column B: The name of a department
Column C: Value

Both Column B and C is dynamic, and I need a macro that can copy the
formula in cell A1 from A2 to the last active row used.

Paul

 

[Tom Ogilvy]

Range("A2",Cells(rows.count,2).end(xlup).offset(0,-1)).Formula = _
Range("A1").Formula

Assume B and C will be filled to the same row.