Нужна ваша помощь в решении задач!!

Sub main()
Dim A(1 To 6, 1 To 6)
A(1, 1) = 5
A(1, 2) = 0
A(1, 3) = -3
A(1, 4) = 1.25
A(1, 5) = -6
A(1, 6) = 0.31
A(2, 1) = 0
A(2, 2) = -0.75
A(2, 3) = 4
A(2, 4) = 5.11
A(2, 5) = 17
A(2, 6) = -4
A(3, 1) = 3
A(3, 2) = -6
A(3, 3) = 2
A(3, 4) = 0.39
A(3, 5) = 18.5
A(3, 6) = 0
A(4, 1) = -3.11
A(4, 2) = 2
A(4, 3) = 8
A(4, 4) = 0.25
A(4, 5) = 6
A(4, 6) = 0.24
A(5, 1) = -2.75
A(5, 2) = 0
A(5, 3) = -3
A(5, 4) = 4
A(5, 5) = 6.5
A(5, 6) = 2.13
A(6, 1) = 7.21
A(6, 2) = 6
A(6, 3) = 3.14
A(6, 4) = -4.11
A(6, 5) = 5.6
A(6, 6) = 10.64
 
'сортируем все четные столбцы
For i = 2 To 6 Step 2
  Call sort(A, i)
Next i
 
'выводим результат в таблицу
For i = 1 To 6
  For j = 1 To 6
    Cells(i, j).Formula = A(i, j)
  Next j
Next i
End Sub
 
 
Sub sort(ByRef Arr, C)
'Arr - массив
'C - столбец который надо отсортировать
cols = UBound(Arr, 1) 'кол-во строк
 
For i = 1 To cols + 1
  For j = cols To i + 1 Step -1
    If Abs(Arr(j - 1, C)) > Abs(Arr(j, C)) Then
      tmp = Arr(j - 1, C)
      Arr(j - 1, C) = Arr(j, C)
      Arr(j, C) = tmp
    End If
  Next j
Next i
End Sub

Dim X
Dim B
X = 13 / 5
B = 4.13
n1 = Sqr(Abs(X ^ 3 - 5)) * Log(X ^ 4 - 5)
n2 = X ^ 3 - 24 - 31.27 * n1
chislitel = Cos(n2) ^ 2
n3 = Sqr(24) - 46 * X ^ 3 - 27 - Sin(arctg(X ^ 3))
znamenatel = Exp(X * Log(n3))
otvet = B * chislitel / znamenatel

Dim X
Dim B
X = 13 / 5
B = 4.13
n1 = Sqr(Abs(X ^ 3 - 5)) * Log(X ^ 4 - 5)
n2 = X ^ 3 - 24 - 31.27 * n1
chislitel = Cos(n2) ^ 2
n3 = Sqr(24) - 46 * X ^ 3 - 27 - Sin(atn(X ^ 3))
znamenatel = Exp(X * Log(n3))
otvet = B * chislitel / znamenatel

max_row = ActiveSheet.UsedRange.Rows.Count + 2 'кол-во строк (плюс 1)
max_val = 1 'номер строки с максимальным значением
 
For i = 2 To max_row 'по всем строкам
  If Cells(i, 2).Value <> "" Then 'если в ячейке есть число
    If Cells(max_val, 2).Value < Cells(i, 2).Value Then 'если число больше максимума
      max_val = i
    End If
  Else 'ячейка пустая
    If max_val <> 1 Then 'если есть номер строки для закрашивания
      Range(Cells(max_val, 1), Cells(max_val, 2)).Interior.ColorIndex = 50 'красим
      max_val = 1 'скидываем номер строки с максимумом и ищем для следующей группы товаров
    End If
  End If
Next i

Sub dz2()
Sheets("Лист1").Select
Dim A(1 To 2, 1 To 10)
A(1, 1) = "стиральный порошок"
A(2, 2) = ""
A(1, 2) = "Стир.пор. Дося-Автомат 2в1 1800гр"
A(2, 2) = "2100"
A(1, 3) = "Стир.пор. Tide-Автомат Ромашка д/чув.и детск.450г"
A(2, 3) = 3450
A(2, 4) = "Стир.пор.Е-Автомат 500гр"
A(1, 4) = 3000
A(1, 5) = ""
A(2, 5) = ""
A(1, 6) = "хозяйственное и туалетное мыло"
A(2, 6) = ""
A(1, 7) = "Туал.мыло Palmolive с фр.экстр.Гранат/Манго"
A(2, 7) = 4100
A(1, 8) = "Жид.мыло ТЕРМАЛ СПА Облепиха 300мл /Palmoliv"
A(2, 8) = 4500
A(1, 9) = "Туал.мыло Palmolive Натур.Амазон. орех 100"
A(2, 9) = 3900
A(1, 10) = "Туал.мыло Palmolive Мягкий Уход 100гр."
A(2, 10) = 4600
max_row = ActiveSheet.UsedRange.Rows.Count + 2 'кол-во строк (плюс 1)
max_val = 1 'номер строки с максимальным значением
 
For i = 2 To max_row 'по всем строкам
  If Cells(i, 2).Value <> "" Then 'если в ячейке есть число
    If Cells(max_val, 2).Value < Cells(i, 2).Value Then 'если число больше максимума
      max_val = i
    End If
  Else 'ячейка пустая
    If max_val <> 1 Then 'если есть номер строки для закрашивания
      Range(Cells(max_val, 1), Cells(max_val, 2)).Interior.ColorIndex = 50 'красим
      max_val = 1 'скидываем номер строки с максимумом и ищем для следующей группы товаров
    End If
  End If
Next i
End Sub