определите типы данных в указоной таблице​

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