Insert this line of code:
Sheets("Monthly Cash Flow").Copy after:=Sheets(Sheets.Count)
below this line:
desWS.Columns.AutoFit