Insert Date In Cell In Each Visible Row

I have a spreadsheet from which i run monthly reports for aother business area. I have filters in row 2 (which is my header row) and what i want to do is filter column CH to show blanks and filter column CE to show non blanks. Then in every visible cell in column CH below the header row (row 2) i want to enter todays date - this is so a record is kept of when each row was detailed in the report. I have tried the code below (which i tried to amend (unsucessfully) from code i got here to clear some cells when i ran another filter for another report).

Sub FilterSheets_Monthly_OFMDFM()
If ActiveWorkbook.ReadOnly = True Then
MsgBox ("This filter must add the date on each row included in this return." & vbLf & vbLf & "It must be run while the workbook status is not Read Only!" & vbLf & vbLf & "Please close this spreadsheet and re-open using the password. Thank you.")
Exit Sub
End If
Dim i As Integer
Dim rng As Range
Application.EnableEvents = False
Application.ScreenUpdating = False........................

• Automatically Insert Static Date In Different Columns Of Same Row
• Find Date & Copy Row Insert Formulas Only
• Check Cell Has Date & Insert Current Static Date
• Insert Row On Sheet & Move Active Cell Row To It
• Insert Row At Active Cell With Formula From Fixed Row
• Insert Row And Copy Cell From New Row
• LastRow Needs To Select Next VISIBLE Row (not Hidden Row)
• Macro To Insert Date In Cell When Text Is Inserted In Another Cell
• Auto-insert Date In A Cell
• Insert Date In Cell Via Calendar
• Macro: Insert A Row A Cell = Particular Value
• Row Insert By Selecting One Cell
• Insert User Name In Adjacent Cell To Date
• Insert Next Row Based On Previous Cell Value
• Add/Insert Row Below Cell If Value Matches
• Insert Row Macro Based On Cell Criteria
• Vba To Copy And Insert Row Based On Cell Value
• How To Insert Blank Row Below A Cell Containing Specific Text
• Insert Cell To Columns Having X Blank Cells In Row
• Insert Row Based On Cell Value :: Give Input Box On Click
• Identify Button (shape) Row To Insert Row And Delete Row
• Last Visible Row With Autofilter
• Visible Row Number In Autofiltered List
• Determine If Filtered Data Has Date Visible In 1 Column
• Highlight Cells Based On Row/Column Being Visible
• Resize Visible Rows Based Only On Visible Columns Text
• Insert Row Syntax - Resize Row VBA Error
• Insert Range-named Row At User-selected Row
• Insert Row- Macro Pasting Format And Formulas Under Last Row
• Auto Insert A Row With Info Populated From The Row Above
• Insert A Row And Copy The Value Or Formula Of The Upper Row
• Insert A Blank New Row If Check The Different Content In The Next Row
• Duplicating Insert Row And Delete Row On Another Sheet
• Automatically Insert Row When Row Value In Column Changes
• Find The First Cell In A Row With A Date
• Scroll Over A Cell That Can Display The Name From The Row Along With The Date From The Column
• Copy Row If Cell In Column Contains Todays Date
• Insert Row Then Copy Row Below
• Insert Row And Copy From Above Row
• Find Last Row Containing Value, Then Insert Row After
• Insert A Row With Formatting From Above Row
• Cell Border Non-visible?
• Button Visible Based On Cell Value
• Auto Filter With First Visible Cell
• Get Value Of First Visible Cell Using Auto Filter
• Next Visible Cell In AutoFilter Range
• Cell Visible Char Limit
• Insert Date
• Select Cell Content From Visible Rows.
• 1st Visible Cell In Filtered Range