EXCEL MACRO TO SUBTRACT TWO COLUMN RANGE

Sub number()

finalrow = Sheets("Sheet1").Range("A10000").End(xlUp).Row

For j = 2 To finalrow

Value1 = Sheets("Sheet1").Range("A" & j).Value

Value2 = Sheets("Sheet1").Range("B" & j).Value

Sheets("Sheet1").Range("C" & j).Value = Value1 - Value2

Next j

End Sub