Получено его.
Пожалуйста измените линию
wb1.Sheets («данные»). Ряд («B25: R42»). Скопируйте _
wb2.Sheets («дополнительное время»). Ряд («B3: R20»)
К
wb1.Sheets («данные»). Ряд («B25: R42»). Экземпляр
wb2.Sheets («дополнительное время»). Ряд («B3: xlPasteValues R20») .PasteSpecial