Current Date for Data Range.

[Shak1701]

I'm trying to code today's date in VBA to cover the range of data - so 02/11/2023 in all the cells or 11/02/2023 for those in the US. From this I then need to calculate age from a different set of dates.

My current code is is increasing the date. This is my current code:

Sub addFormulae()
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    
    Range("S2") = Date
    Range("S2").AutoFill Range("S2:S" & lr)
    
End Sub

 

[FormR]

Hi, you can populate all the cells at once, rather than first one and filling down, for example..

Sub addFormulae()
Dim lr As Long
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    
    Range("S2:S" & lr).Value = Date
    
End Sub

 

[Shak1701]

Hi, you can populate all the cells at once, rather than first one and filling down, for example..

Sub addFormulae()
Dim lr As Long
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
   
    Range("S2:S" & lr).Value = Date
   
End Sub

Thank you very much!