Boa tarde!!

se usar a pesquisa encontrar muito conteúdo relacionado à esse assunto.

Range("A1:C3").Copy 'Intervalo de origem a ser copiado
Range("D4").PasteSpecial xlPasteValuesAndNumberFormats

Ou..

Worksheets("Guia_Origem").Range("A1:C3").Copy 
Worksheets("Guia_Destino").Range("A1") .PasteSpecial Paste:=xlValues, _ 
Operation:=xlNone, SkipBlanks:= False, Transpose:=False 
 
Application.CutCopyMode = False 

Att

Não sei se entendi direito, mas o colar especial em duas etapas não resolve?

Copie o texto que você quer colar e cole os valores (guia início - área de transferência - Colar - Colar Valores). Depois copie o texto e cole os formatos(guia início - área de transferência - Colar - Colar Especial - Colar Formatos).