Makro çalışan sayfada sayfa ve koşullu biçimlendirmeleri korumak

[Believing]

Sayn Formdaş arkadaşlar,

Aşağıdaki makro kaydet yöntemi ile oluşturduğum kodları çalıştırdığımda, daha önce sayfaya uyguladığım sayfa ile koşullu biçimlendirmeleri bozulmaktadır.
Sayfaya uyguladığım biçimlendirmeleri korumak için aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Sub Egitim_Kayitlerini_Benzersiz_Listele()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Sheets("DATABASE").Select
    Range("C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("C3").Select
    Sheets("Eğitim Konu Başlığı Özeti").Select
    Range("B55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$B$54:$B$6948").RemoveDuplicates Columns:=1, Header:= _
        xlYes
    ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Add2 _
        Key:=Range("B55:B6948"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort
        .SetRange Range("B55:B6948")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B55").Select
    Sheets("CONTROL_PANEL").Select
    Range("B1").Select
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

 

[GursoyC]

Kodlarınızda bahsettiğiniz problemi yaratabilecek tek satır bana şu satır gibi geldi. Başına tek tırnak koyarak o satırı es geçmesini sağlamayı dener misiniz.
ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Clear