And just to be clear, all this is within an excel worksheet correct
Here is how i use something similar in my reports.. Obviously adjust the ranges and worksheet names
Dim LastRow As Long
' THIS GET A TOTAL COUNT OF ROWS BASED ON THE DATABASE
LastRow = ThisWorkbook.Worksheets("XXXXXX").Range("A" & Rows.Count).End(xlUp).Row
' APPLY FORMULA
ThisWorkbook.Worksheets("XXXXXX").Range("K2").FormulaR1C1 = "=DAYS(TODAY(),RC[-8])"
' AUTOFILL DOWN THE FORMULA TO THE APPROPRIATE FIELDS BASED ON THE LAST ROW OF THE DATABASE
ThisWorkbook.Worksheets("XXXXXX").Range("K2").AutoFill Destination:=ThisWorkbook.Worksheets("XXXXXX").Range("K2:K" & LastRow)
Bookmarks