保持甘特图范围条件格式

Question

我有甘特图（Sheet1），想从（Sheet2）复制和粘贴预定义的任务。当前解决方案的问题是，条件格式不应用于新粘贴的行，因为复制的单元格上没有条件格式。我曾尝试在Sheet2上应用条件格式，但随后有很多条件格式，并且条件格式的公式已连接到Sheet2，因此在Sheet1上复制后它无法正常工作。

Sheet2 =数据

这是我当前的代码：

Sub InsertRev()

    Application.DisplayAlerts = False

    Dim c As Range
    Set Rng = ActiveSheet.Range("A1:A5000")
    For dblCounter = Rng.Cells.Count To 1 Step -1
        Set c = Rng(dblCounter)
        If c.Value Like "Last" Then
        ThisWorkbook.Worksheets("Data").Rows("26:27").Copy
        c.EntireRow.insert
    End If
    Next dblCounter

    Application.DisplayAlerts = True

End Sub