диапазоны можно посмотреть во вкладке Формулы - Диспетчер имен. Использую пересечения имен. Ошибку вроде исправил, здесь я использую пересечение имени столбца со всей строкой, заменил диапазон строки по ее номеру на пересечение диапазонов имен таблицы и столбца, затем беру ячейку по текущей строке. То есть было например vrem = Intersect(Range(rw & ":" & rw), Range("Даты")).Value (столбец Даты в таблице Данные и очередная строка целиком), стало vrem = Intersect(Range("Данные"), Range("Даты")).Cells(rw - 1).Value (таблица Данные пересекается со столбцом Даты, и потом берем нужную ячейку, rw-1 - это номер строки относительно листа минус число строк шапки. Но все же казалось, что старый вариант должен работать, он и работал раз на 5-й.

Он у Вас работал тогда, когда в момент запуска макроса АКТИВНЫМ был лист Данные.

zenija2007, ну отладку кода когда сами освоите? В момент ошибки значение r.Value чему у Вас равно?