VBA subtract from next column above cell

[Prabhudharun]

[TABLE="class: outer_border, width: 300, align: center"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]5000[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]300[/TD]
[TD]4700[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]500[/TD]
[TD]4200[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]600[/TD]
[TD]3600[/TD]
[/TR]
</tbody>[/TABLE]

Hi Team,
I have a sheet like above.

I need to subtract B2 from c1, B3 from C2, B4 from C3 till last row of B.

Need a vba code. Can some one help me on this.

 

[Joe4]

Try this:

Sub MyMacro()

    Dim lr As Long
    
'   Find last row in column B with data
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Populate column C with formulas, starting on row 2, going down to last row
    Range("C2:C" & lr).FormulaR1C1 = "=R[-1]C-RC[-1]"

End Sub

 

[Prabhudharun]

Thanks MrExcel MVP,

Great Stuff...Expected result came out

 

[Joe4]

You are welcome.