VBA to Retain the Conditional Formatting with an Advanced Filter

Hi-

iI've set up a macro to run an Advanced Filter that transfers entries to a separate worksheet (Sheet1) based on a date criteria. the source sheet (PM Project Tracker) has conditional formatting that i would like the VBA t oretain once on the new worksheet.

is this possible? Any help would be appreciated.

Attached is my code

Sub FilterCopyToOtherSheet()
Application.ScreenUpdating = True

Sheets("Sheet1").Range("A6:AJ6000").ClearContents

     Sheets("PM Project Tracker").Range("A5:AJ250").AdvancedFilter _
     Action:=xlFilterCopy, _
     CriteriaRange:=Sheets("PM Project Tracker").Range("A3:B4"), _
     CopyToRange:=Sheets("Sheet1").Range("A6"), _
     Unique:=False


End Sub