How to create a macro for the minimum and maximum values ​​in a table?

Question

Visual Basic

Tell me how to create a macro for the maximum and minimum values?
There is this table

I tried to do it myself, but it turns out not quite right. Can anyone advise?

Sub Up()
Dim R As Long
R = InputBox("Задать номер строки")
With Worksheets("Лист1").Rows(R)
  MsgBox "Max" & WorksheetFunction.Max(.Cells) & vbNewLine & _
         "Min" & WorksheetFunction.Min(.Cells)
End With
End Sub

The result is this. How do I compare 2nd and 3rd column. So that, for example, a minimum value of 54.8 in 1998 was written in a cell or pop-up window.