Copiar y pegar datos sin abrir hoja de excel

buenos días, ya tengo un código para copiar y pegar datos de una hoja de excel a otra sin abrir el origen, pero, no me mantiene el formato del texto, ejemplo, el color, quisiera saber como hacer....muchas gracias....

el código que tengo es:

Dim strArchivo As String, strSQL As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim arrData As Variant
Application.ScreenUpdating = False
'On Error GoTo Errhandler
strArchivo = "Y:\Activas\2432 POLINTER ACCI\CDT\CDP\VIP-TM-REPORT-CW-LISTADO BASE.XLS"
'Comprobamos si el archivo existe en la ruta indicada
If Dir(strArchivo) = "" Then
MsgBox "NO SE PUDO ACTUALIZAR EL LISTADO DE PRODUCTOS"
Exit Sub
End If
'Creamos la cedena texto de la consulta SQL
strSQL = "SELECT * FROM [LEM-POL$A1:L5000]"
'Creamos la conexión al archivo
Set cn = New ADODB.Connection
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};" & _
"DriverIdy0;ReadOnly=True;DBQ=" & strArchivo & ";"
'Extraemos los datos
Set rs = New ADODB.Recordset
rs.Open strSQL, cn, adOpenForwardOnly, _
adLockReadOnly, adCmdText
'Copiamos los datos en la celda destino
ThisWorkbook.Worksheets("LEM-POL").Range("A2:L5000").CopyFromRecordset rs