Почему происходит ошибка: Run-time error '9', Subscript out of Range в этой строке:
Set sh_res = bk_res.Worksheets(sh_src.Cells(i, "B").Value)
Какое сообщение ошибки?
Runtime Я сделал скрины
[вложение удалено администратором]
Дождитесь ошибки, появится диалог, щёлкните в нём Debug, наведите курсор на переменную i и подождите несколько секунд - появится подсказка. Какое значение в этой подсказке?