enter formula using activecell and offset

[JohnZ1156]

I have a table where I'd like the macro to enter a formula BEFORE I enter the actual value.

I would like it to enter a formula that says, in the activecell, put the formula (offset(0,-1) minus (offset(-1, -1)
Then I would like it to show me that amount.
But then, I have an input box and I'd like whatever I enter into the input box to REPLACE the formula in the activecell.

    With ActiveCell
        .Offset(0, 0).Value = .Offset(0, -1).Value - .Offset(-1, -1).Value
    End With
    
    Trip = InputBox("Please enter the Trip Distance.", "Trip Distance", Default, XPos:=2880, YPos:=5760)
    ActiveCell.Value = ActiveCell.Value & Trip
    ActiveCell.Offset(0, 1).Select

 

[bobsan42]

something like this:

    With ActiveCell
        .Formula = "=" & .Offset(0, -1).Address & "-" & .Offset(-1, -1).Address
        
        Trip = InputBox("Please enter the Trip Distance.", "Trip Distance", .Value, XPos:=2880, YPos:=5760)
        If IsNumeric(Trip) Then .Value = Trip
        .Offset(0, 1).Select
    End With

 

[JohnZ1156]

something like this:

    With ActiveCell
        .Formula = "=" & .Offset(0, -1).Address & "-" & .Offset(-1, -1).Address
       
        Trip = InputBox("Please enter the Trip Distance.", "Trip Distance", .Value, XPos:=2880, YPos:=5760)
        If IsNumeric(Trip) Then .Value = Trip
        .Offset(0, 1).Select
    End With

Works exactly as I wanted.
Thank you !!!