Q:

Formula to combine variable and cell references

I have been looking for hours for a solution but couldn't find any. I am an absolute beginner in VBA and couldn't figure this out for myself. The thing I would like to do is that VBA enters in a cell a formula that will contain a value extracted from a variable and then subtracts all the below cells. The cells below could change which would affect the overall value so I need to leave it as dynamic. (e.g: Cell A1 should look like this: =500-A2-A3-A4.. etc).
The code looks like this at the moment. So far it only enters the value from the variable
crnt = Cells(5, "D").Value
Range("E60").Select
ActiveCell.Offset(0, crnt - 1).Activate
rev = ActiveCell.Value
Range("E9").Select
ActiveCell.Offset(0, crnt - 1).Select
ActiveCell.Value = rev

A:

You might want this one: 
InVal = 500          ' input value
Cells("A1").FormulaLocal = "=" & CStr(InVal) & "-A2-A3-A4"

or in a loop
Dim InVal() as Variant
InVal = Range("M60:Z60").Value

For i = LBound(InVal) to UBound(InVal)
    Cells(1, i + 1).FormulaLocal = "=" & CStr(Val(InVal(i))) & "-" & Cells(2, i + 1).Address & "-" & Cells(3, i + 1).Address & "-" & Cells(4, i + 1).Address 
Next i

All you need to do is to play with .Address and the strings to compile the formula.

