Sub Макрос3()
'ПЕРЕД ЗАПУСКОМ (для чистоты эксперимента) - УДАЛИТЬ СТОЛБЦЫ "Max" И "Min"
Dim rngStart As Range, rngTable As Range, tmpRange As Range
Dim NumRowTab As Long, NumColTab As Long
Set rngStart = ThisWorkbook.Worksheets("Лист1").Range("B2")
        
'Определим размер загруженной таблицы 'количество строк, столбцов
Set rngTable = rngStart.CurrentRegion
       NumRowTab = rngTable.Rows.count: NumColTab = rngTable.Columns.count
         
'ДОПОЛНИТЕЛЬНЫЕ ДВА СТОЛБЦА: Max и Min
      Dim j As Integer
      For j = 1 To 2      
         Select Case j
                Case 1
                   With rngStart
                   .Offset(0, NumColTab).Value = "Max"
                   .Offset(1, NumColTab).FormulaR1C1 = "=MAX(RC[-5]:R[" & NumRowTab - 2 & "]C[-5])"
                   End With
                Case 2
                   With rngStart
                   .Offset(0, NumColTab).Value = "Min"
                   .Offset(1, NumColTab).FormulaR1C1 = "=MIN(RC[-5]:R[" & NumRowTab - 2 & "]C[-5])"
                   End With
         End Select
                    
         Set tmpRange = rngStart.Offset(1, NumColTab).Resize(NumRowTab - 1, 1)
             With tmpRange
                 .Value = rngStart.Offset(1, NumColTab).Value
                 .Value = Application.Round(tmpRange, "2")
                 .NumberFormat = "0.00"
                     
                  With .Offset(, -5) 'дополнительно подсвечиваем Максимум и Минимум
                       .FormatConditions.Delete
                       .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=RC[+5]"
                         
                      If j = 1 Then 'для Максимума
                       .FormatConditions(1).Interior.Color = RGB(255, 204, 204) 'MAX 'МАКС
                      Else          'для Минимума
                       .FormatConditions(1).Interior.Color = RGB(204, 255, 204) 'MIN 'МИН
                      End If
                  End With
             End With
            
         Set rngTable = rngStart.CurrentRegion 'пересчитываем таблицу
             NumRowTab = rngTable.Rows.count: NumColTab = rngTable.Columns.count
      Next j
End Sub