Change this line

Cells(i, 32) = "Analyst Today's Date"
To

Cells(i, 32) = "Analyst " & Format(Date, "DD.MM.YYYY")