Fill InThe Blanks Addition

I have some great code that HalfAce provided a while back that I think will fit a project I am working on, but I can't see how to modify it to fit this one. I need to have it look at a location and provider and find the most "common" date. Then for that criteria fill in the lines with no dates with that "common" date. Here is the code that I need to modify for this


Sub FillInTheBlanks()
Dim LstRw As Long, _
DescRng As Range, _
AccntRng As Range, _
Desc As Range, _
Accnt As Range

LstRw = Cells(Rows.Count, "B").End(xlUp).Row
Set AccntRng = Range(Cells(2, "B"), Cells(LstRw, "B"))
Set DescRng = Range(Cells(2, "I"), Cells(LstRw, "I"))