Задан массив из 2 столбцов Excel "Цены" и "Товары"
Нужно найти название одного товара, который по цене наиболее близкий к средней цене.

Public Function minim _
(Товары As Range,Цены As Range) As String
Dim arrЦены As Variant
Dim N As Integer
Dim i As Integer
N = Цены.Rows.Count
arrТовары = Товары.Value
arrЦены = Цены.Value

S = 0
For i = 1 To (N - 1)
S = S + arrЦены(i, 1)
Next i
V = S / N
minimal = arrЦены(1, 1) - V
For r = 1 To N
If arrЦены(r, 1) - V < minimal Then minimal = arrЦены(r, 1) - V
Next r
i = 0
Do
i = i + 1
Loop Until (minimal)

x = CVar(arrТовары(i, 1))
minim = x
End Function

)) нужно именно в VBA. Спасибо.