Macro That Autofills Formulas

I have a macro in a workbook that runs automatically when I open my workbook. The purpose of it is to find the last non-zero cell in column A of all but three worksheets in my workbook that are named 1 to n and enter the current date in the cell below it.

Once this is done, it is supposed to autofill the formulas from the last non-zero row in columns B and D down into the row that has the current date in column A. I don't understand what is wrong, because at one point the macro did what it was supposed to.

Since then, I added a "for loop" that makes the macro repeat for n number of sheets as opposed to one, and now all it does is adds the date in the last non-zero cell in column A in every sheet 1 to n....it no longer autofills the formulas down in columns B and D.

Here is a look at my

Private Sub Workbook_Open()

Dim xlWs As Excel.Worksheet
Dim fillRow As Long
Dim rng As Range
Dim i As Long