Доброго времени суток, уважаемые. Помогите пожалуйста.

Есть одна таблица с тремя строчками, нужно проанализировать содержимое заголовков каждого столбца и раскидать столбцы по соответствующим таблицам.
Для примера я набросал маленький файлик, слева таблица с исходными данными, а справа три таблички которые нужно заполнить. (В примере я их заполнил вручную через Ctrl+C/Ctrl+V)
Я понимаю, что нужно как-то циклом перебирать и копировать содержимое. Но моих познаний в макросописании не хватает.

Помогите, пожалуйста.