Sub МинЗначПоСтрокам
' Минимальные значения по строкам Макрос
Dim Sel As Integer

For Sel = 2 To 100   ' Задаем диапазон строк

     Range("A" & Sel & ":E" & Sel).Select
     Selection.FormatConditions.AddTop10
     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
     With Selection.FormatConditions(1)
         .TopBottom = xlTop10Bottom
         .Rank = 1
         .Percent = False
     End With
     With Selection.FormatConditions(1).Interior
         .PatternColorIndex = xlAutomatic
         .ThemeColor = xlThemeColorAccent6      ' Здесь задана цветовая гамма
         .TintAndShade = 0.1                    ' Здесь задана цветовая гамма
     End With
     Selection.FormatConditions(1).StopIfTrue = True
     
     Next Sel
      
End Sub