Макрос для вставки словосочетания в ячейки - VBA

Формулировка задачи:

Добрый день, дорогие программисты! Прошу сделать макрос для эксель, который вставлял бы словосочетание "Белгородский район" (сразу после "Белгородская область") в каждую строку столбца ADDRESS. То есть у нас есть такая строка: Белгородская область, с.Веселая Лопань, Садовая, д.1, кв.1, а нужна: Белгородская область, Белгородский район, с.Веселая Лопань, Садовая, д.1, кв.1. Файл прикрепляю. Прошу выложить готовый макрос в виде xls файла. Спасибо.

Решение задачи: «Макрос для вставки словосочетания в ячейки»

textual
                            Листинг программы 
                        

                            ActiveSheet.UsedRange.Columns(9).Replace What:="Белгородская область", Replacement:="Белгородская область, Белгородский район", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
                        