Fill Formula function not working when using R1C1 reference style for columns

n0ahc 
try this one:

Private Sub Workbook_Open()
    Dim currentDate As Date
    Dim startDate As Date
    Dim endDate As Date
    Dim dateColumn As Range

    ' Set the current date to today
    currentDate = Date

    ' Set the start date to 3 days ago
    startDate = currentDate - 3

    ' Set the end date to today
    endDate = currentDate

    ' Define the range of the date column in your data
    ' Change "A1:A500" to match the location of your date column
    Set dateColumn = ThisWorkbook.Worksheets("Sheet1").Range("A1:A500")

    ' Clear any existing filters
    dateColumn.AutoFilter

    ' Filter by the last four days
    dateColumn.AutoFilter Field:=1, Criteria1:=">=" & startDate, Operator:=xlAnd, Criteria2:="<=" & endDate
End Sub

Just replace the "Sheet1" and "A1:A500" with your sheet name and date column range. This code will execute when you open the workbook and automatically filtering the data based on the last 4 days.

Ps. Apologize for 2 months delayed reply, really been busy.