Vba протянуть формулу по столбцу С до последней ячейки по столбцу D

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

всем доброго времени суток Уважаемые профи,подскажите,пожалуйста, такой вопрос: в ячейке С1 имеется формула =ТЕКСТ($D1;"ДД.ММ.ГГГГ ч:мм:сс") надо протянуть ее до последней заполненной ячейки по столбцу D . Соответственно в ячейке С2 будет формула =ТЕКСТ($D2;"ДД.ММ.ГГГГ ч:мм:сс") и тд подскажите как это реализовать в vba(тк буду добавлять в макрос) Спасибо большое

Решение задачи: «Vba протянуть формулу по столбцу С до последней ячейки по столбцу D»

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

                            Sub val11()
   lLastRowD = Cells(Rows.Count, "D").End(xlUp).Row
   If lLastRowD > 1 Then Range("C1:C1").AutoFill Destination:=Range("C1:C" & lLastRowD), Type:=xlFillDefault
End Sub
                        