Add Formula To Macro

I have this macro which runs great, but I would like to add a date formula to it before it auto fits the columns. I need cell E5 to Increase its date by 1 month to the last day of month from G5. For examply if g5 reads 2/28/07 I want a formula that will make e5 3/31/07 for every sheet.

Maybe something like this =DATE(YEAR(g5),MONTH(g5)+2,0). but I don't know how to put it in the macro to run on every sheet (except the ones I excluded.)

Sub PayrollAnalysisMacro()
Dim wrkSheet As Variant

For Each wrkSheet In ThisWorkbook.Sheets
If wrkSheet.Name <> "Download" And wrkSheet.Name <> "Recap by DC MTD" And wrkSheet.Name <> "Recap by DC YTD" Then
With wrkSheet
.Range("G5:H71").Insert Shift:=xlToRight
.Range("E5:F71").Copy .Range("G5:H71")
.Range("G5:H71").Value = .Range("G5:H71").Value
.Columns("G:BE").EntireColumn.AutoFit
End With
End If