You have deleted a vital bit of code somewhere which was telling VBA which cell is FormulaCell

To test this I inserted 
Set FormulaCell = Worksheets("Broker Agreements").Range("D4")
Below the line
strsub = Format(Now, "DD-MMM-YYYY") & " - Upcoming Review Reminder:"
and it worked

FormulaCell drives all the values such as
Cells(FormulaCell.Row, "A").Value
Hopefully this will help you solve your puzzle