Перенести заполненные ячейки в соседний столбец - VBA

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

Добрый день! Имеется excel файл напечатанного ниже формата: Столбец

"C"

- базовая стоимость; Столбец

"D"

- цена со скидкой; Напишите пожалуйста макрос который

перенесёт цены со столбца "D" в столбец "C"

, при условии, что

ячейка в столбце "D" - заполнена (существует цена со скидкой)

. В оригинальном файле исходнике заполнено около 50 тыс. строк. Ниже привожу пример страницы файла

"исходник"

"C1"

"D1"

11,5

"C2"

15,5

"D1"

"C3"

19,25

"D1"

18 Ниже привожу пример страницы файла

"необходимый результат"

"C1"

11,5

"D1"

11,5

"C2"

15,5

"D1"

"C3"

"D1"

18 Во вложении прикрепляю файл содержащий страницы

"исходник"

"необходимый результат"

Решение задачи: «Перенести заполненные ячейки в соседний столбец»

textual
                            Листинг программы 
                        
                            Sub mr()
 
Dim arr() As Variant
Dim RowCount, i As Double
 
RowCount = Sheets("Исходник").Cells(Rows.Count, "C").End(xlUp).Row
 
arr = Range("C1:D" & RowCount)
 
    For i = 1 To UBound(arr)
        If arr(i, 2) <> "" Then arr(i, 1) = arr(i, 2)
    Next
 
Range("H1:G" & RowCount) = arr
 
End Sub