Где sub qwer() dim a(1 to 10), b(1 to 10) as integer n = 10 for i = 1 to n a(i) = worksheets("ëèñò1").cells(1, i + 1).value b(i) = worksheets("ëèñò1").cells(2, i + 1).value next i s = 0: min = a(1) for i = 1 to n s = s + b(i) if a(i) < = min then min = a(i) next i r = min / s msgbox "s=" & s msgbox "min=" & min msgbox "r=" & r end sub

1. Программа работает. Если она что-то "не так" выдает, нужно привести текст сообщения и место ошибки.
2. Поскольку я написал тестовый пример и он программа работо Она работо ограниченно, если у Вас возникает ошибка в её работе.
3. Если у Вас возникает ошибка, а у меня нет, виноваты данные, которые программа обрабатывает. Посему нужно привести Ваши конкретные 2х10 строк данных, чтобы можно было сделать какой-то анализ.
4. Во избежание проблем с типами рекомендую добавить строку описания Dim s As Integer, min As Integer, R As Double
Это приведет к типизации переменных и позволит лучше локализовать ошибку.

Проверил через VBEdit, код верен. Смутили только названия worksheets'ов.