Coma cambiar este tipo de pegado

Recomendaciones:

Cursos de Excel:

https://www.youtube.com/watch?v=w7MYL3wDgH4&t=3s

https://www.youtube.com/watch?v=dy9w9zbkCaw&t=644s

https://www.youtube.com/watch?v=7Xhs04vhrtg&t=188s

---

Cursos de Macros:

https://www.youtube.com/watch?v=PupmVvM16-8&t=1s

https://www.youtube.com/watch?v=f_x8pstpNqc&t=3s

https://www.youtube.com/watch?v=5k0szqErdXg&t=689s

Tengo entendido que solo necesitas copiar el formato de la col B, formato condicional 'duplicados'. Para el resto habías solicitado 'solo valores', obteniendo estas instrucciones:

Range("A1:P" & fini). Copy
libR.Range("A" & ini).PasteSpecial Paste:=xlValues 

Ahora, si debe mantener el mismo formato a toda la col B (y eventualmente de alguna otra), lo conveniente es mantener estas instrucciones y al finalizar asignar el formato a toda la col B ocupada.

Buscá el texto 'finaliza' y allí insertá las instrucciones que te agrego ahora.

'se aplica el mismo formato a toda la col B
    Range("B2:B" & fini).Select
    Selection. FormatConditions. AddUniqueValues
    Selection. FormatConditions(Selection. FormatConditions. Count). SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6     'ajustar el color a gusto
        .TintAndShade = 0.399945066682943
    End With
'finaliza
Range("A2").Select
MsgBox "Fin del Proceso de captura.", , "Información"
End Sub

Para obtener los formatos podrías utilizar la grabadora de macros y así obtener el nro de color y estilo deseados.

Te recomiendo el video N° 62 de mi canal: La Grabadora de Macros.