Формула для именованного Range-а - VBA

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

Есть рейндж, состоящий из дат с указанием времени, чего мне не надо. Функцией Int хвосты (время) можно убрать циклом. Я вот так написал:

                    Листинг программы
                
 
                        
                          
                    
Sub tseloe()
Application.ThisWorkbook.Worksheets("Лист7").Activate
i = ActiveSheet.Range("A65536").End(xlUp).Row
For x = 4 To i
Cells(x, 1) = Int(Cells(x, 1))
Next x
End sub

У меня вопрос: если я загоню столбик дат в рейндж

                    Листинг программы
                
Set rnD = Worksheets("Лист7").Range(Cells(4, 1), Cells(i, 1))

можно ли обойтись без цикла, чтобы убрать хвосты времени с пом. функции Int? Как это делают профессионалы?

Решение задачи: «Формула для именованного Range-а»

textual
                            Листинг программы 
                        
isch.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"