Add inserting conditional format

[judgejustin]

I created the following by recording what I need done. I am inserting data from one place to another. I first have to invert it and paste it as a values. Then I need that data to be pasted into another sheet at the top of the row, so I shift the row down. All of this works great. However I also need the conditional formating to be pasted into the final sheet as well. I can get everything to work except the conditional formatting to be pasted. I've tried playing around with the code but can't figure it out.

Sub Insert_New()
'
' Insert_New Macro
'

'
    Range("D34:D49").Select
    Selection.Copy
  
    Range("H54").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
   
    Range("H54:AC54").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Inventory Sheet").Select
    
    Range("A5:V5").Select
    Selection.Insert Shift:=xlDown
    Sheets("Inventory Sheet").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("New Record Entry").Select

    Range("C27:F27").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F24").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C24").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F20").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C20").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D16").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D14").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D12").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D4").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D6:E6").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D4").Select
End Sub