With wkOrigemDestino .Range("b10").Copy wkDestinoOrigem.Range("c5") .Range("d10").Copy wkDestinoOrigem.Range("c7") .Range("e9").Copy wkDestinoOrigem.Range("c4") With wkDestinoOrigem .Range("d20").Copy wkOrigemDestino.Range("e10").Select Selection.PasteSpecial Paste:=xlPasteValues End With End With