Hello Spellbound,

Replace the macro on the Results worksheet with the code below, and remove the macro from the Input worksheet.
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$2" Then Exit Sub
  ActiveSheet.Calculate
  Worksheets("Input").Range("$O$2") = Target
  Worksheets("Input").Calculate
End Sub
Sincerely,
Leith Ross