Option Explicit
Sub EnterData()
Dim Fill As Date
Dim Odometer As Double
Dim Trip As Double
Dim Price As Double
Dim Gallons As Double
Dim CMPG As Double
Dim Octane As Double
Dim Light As String
Worksheets("Mileage").Select
Range("A1").Select
Range("A11").End(xlDown).Select
Range("A1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
'Enter Date of Purchase
Selection.ClearContents
Fill = InputBox("Please enter the Date.", "Fill Date", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Fill
ActiveCell.Offset(0, 1).Select
'Enter Odometer reading at time of purchase
Selection.ClearContents
Odometer = InputBox("Please enter the Odometer.", "Odometer Reading", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Odometer
ActiveCell.Offset(0, 1).Select
[B]' Here's where I'd like it to calculate the trip value, but still allow me to enter the actual trip value before moving on[/B]
'Enter Trip
Selection.ClearContents
Trip = InputBox("Please enter the Trip Distance.", "Trip Distance", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Trip
ActiveCell.Offset(0, 1).Select
'Enter Price per Gallon
Selection.ClearContents
Price = InputBox("Please enter the Price per Gallon.", "Price per Gallon", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Price
ActiveCell.Offset(0, 1).Select
'Enter Gallons Purchased
Selection.ClearContents
Gallons = InputBox("Please enter the Gallons.", "Gallons Purchased", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Gallons
ActiveCell.Offset(0, 3).Select
'Enter CMPG (Car MPG)
Selection.ClearContents
CMPG = InputBox("Please enter the Cars MPG.", "Cars MPG", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & CMPG
ActiveCell.Offset(0, 2).Select
'Enter Octane
Selection.ClearContents
Octane = InputBox("Please enter the Octane.", "Octane", Default, XPos:=2880, YPos:=5760)
ActiveCell.Value = ActiveCell.Value & Octane
ActiveCell.Offset(0, 1).Select
'Enter Light
Selection.ClearContents
Light = InputBox("Please enter <Yes> for Light.", "Light", Default, XPos:=2880, YPos:=5760)
' ActiveCell.Value = ActiveCell.Value & Light
ActiveCell.Offset(0, 1).Select
End Sub