Unable to Filldown from Date Variable in VBA

[swl681]

My goal is to find the most recent date in column A (the date in column A is determined by a formula) and filldown one row from the most recent date in column A through column T.


I am able to locate the most recent date in column A utilizing


Max_date = Application.WorksheetFunction.Max(Columns("A"))


but when I try to identify it in a range I am unsuccessful.


Below is the total of failing code:


Sub Find_Date()


Dim Max_date As Date


Max_date = Application.WorksheetFunction.Max(Columns("A"))


Worksheets("Sheet1").Range("A" & Max_date).End(xlDown).FillDown


End Sub

 

[steve the fish]

You want to fill down just one row? Try like this on a copy of your workbook!!

Max_date = Application.WorksheetFunction.Max(Columns("A"))
Match_Max = Application.Match(Max_date, Columns("A"), 0)

If Not IsError(Match_Max) Then Range(Cells(Match_Max, 1), Cells(Match_Max + 1, 20)).FillDown

 

[swl681]

That worked perfectly, many thanks.

If you have time, can you walk me through the If Not logic you used?

Either way many thanks from a VBA noob!