Ingresar formato condicional y eliminarlo

Buenas Noches:

Tengo los siguientes códigos:

Esté código copia a la hoja con el nombre de la celda T2

Sub Copiar_tkt_a_Kardex()
For Each Hoja In Worksheets
If Hoja.Name <> "TKT" Then
'Comprobamos antes si la hoja está entre las mencionadas en la columna R
Dim qRangoR As Range
Set Origen = Range("T2") 'qRangoR = Application.Intersect(Columns("N:N"), Hoja1.UsedRange)
For Each cell In Origen 'qRangoR
If cell.Value = Hoja.Name Then
'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta
' Worksheets("TKT").Range("$A$3:$n$100").AutoFilter FIELD:=14, Criteria1:=Hoja.Name
uFila = Worksheets("TKT").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("TKT").Range("b3:s" & uFila).Copy Destination:=Worksheets(Hoja.Name).Range("A" & Rows.Count).End(xlUp).Offset(1)
Else
'si no coincide no hace nada
End If
Next cell
End If

Next

End Sub

Esté código ingresa un formato condicional 

Sub Condiduplic()
Range("D7:D10000").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("a6").Select
End Sub

Esté código elimina el formato condicional 

Sub Elicondi()
With AppExcel
Range("d7:d10000").Select
Selection.FormatConditions.Delete
End With
Range("a6").Select
End Sub

 

Bueno lo que yo quiero es que a la hoja seleccionada según el valor de la hoja TKT celda T2 al momento de copiar los valores de mi hoja, de la misma manera a la misma hoja primero que elimine los formatos condicionales y luego los vuelva a re establecer, se que es medio raro lo que necesito pero es para evitar que se cargue de formatos.

Desde ya muchas gracias

Saludos cordiales

Jesús