Hola Chicos!

Долго думала, но моих знаний не хватает для автоматизации процесса, думала использовать offset и другие функций, но не получается

Есть лист в файле, на котором представлено 5 таблиц,
в одной Таблица №1 параметры доходности по отделу и бизнес направлению, сумма на одну сделку в ячейках I10:I28
в Таблица №2 пользователь ставит кол-во сделок по месяцам сколько он планирует заключить
в Таблице №3 пользователь ставит сколько дней проходит между согласованием условий по сделке и получением выручки
в Таблица №4 автоматически рассчитывается на сколько денег будет подписано договоров по месяцам

и проблемная табл Таблица №5, где я хочу, чтобы в зависимости от кол-ва дней в Таблице №3, выручка из Таблица №4, сдвигалась в соответствующий месяц.
Я перенесла руками в качестве примера по отделу Afb бизнес oil выручку из янв в июнь, так как сдвиг в Таблице №3 стоит 180 дней. Я хочу автоматизировать заполнение табл. №5, так как это прогнозирование делается каждый месяц

Прошу уважаемых коллег помочь с решением

Добрый вечер!  
 
Подскажите пожалуйста как написать, макрос- цикл, поиском пользовалась очень много, куча разрозненных данных, но в кучку собрать не получается. Сама я начинающий экселер  
Есть книга куда импортируются опрделенные значения.  
Необходимо раз в час переносить данные на Лист2 и   под последней ячейкой массива ставить время, когда произошло копирование    
Файл прилагаю на первом листе данные, которые постоянно обновляются и которые раз в час надо ставить в Лист2 с указанием времени  
 
Вот что я пыталась  
 
Sheets("Лист1").Select  
   Range("A1:W2").Select  
   Range("W2").Activate  
   Selection.Copy  
   Sheets("Лист2").Select  
   Range("A1").Select  
   ActiveSheet.Paste  
   Range("W3") = Time  
 
Application.OnTime Now + TimeValue("00:59:00")  
 
Большое спасибо за понимание