Vejam se podem me ajudar aqui :

Tenho em J3:Jx , ao qual esta formatada para R$ valores contendo os centavos ex: R$ 45,56
Ao executar esta macro os valores copiados de Jx para ActiveCell = Cont1 na plan MARKUP esta arredondando-se para R$ 46.00 preciso que se mantenha em R$ 45,56 . O que pode estar acontecendo se as duas plans possuem a mesma formatacao para R$ ???

'

 ATUALIZAR VALOR DO PRODUTO
'-----------------------------------------------------------------------

Sheets("Markup").Visible = True
'Sheets("Markup").Unprotect = "861485"

Dim Produto As String, VendaAba As String
Dim Cont1 As Long, x As Integer
Dim WC1 As Worksheet, WR1 As Worksheet

VendaAba = Range("B1").Value

Set WC1 = Worksheets("Markup")
Set WR1 = Worksheets("Lancamentos Entrada & Saida")

Produto = WR1.Range("J2").Value

VOLTAR:

WC1.Activate
WC1.Range("B3").Activate
    
Do While ActiveCell <> ""
    If ActiveCell = Produto Then
        ActiveCell.Offset(0, 1).Activate
    Cont1 = ActiveCell
    Cont1 = WR1.Range("M" & x).Value
    ActiveCell = Cont1
GoTo Vai
Else
    ActiveCell.Offset(1, 0).Activate
End If
Loop

Vai:
'---------------------------------------
    WR1.Activate
'Aqui faz uma verificacao se existem outros produtos

For x = 2 To 137 'Pega a linha seguinte e procura mais itens
If Range("J" & x).Value = "" And Range("O" & x).Value = "" Then
GoTo Passar
Else: End If

If Range("J" & x).Value <> "" And Range("O" & x).Value = 0 Then
Produto = WR1.Range("J" & x).Value
Range("O" & x).Value = 1
GoTo VOLTAR
End If
Next

Passar:

Set WC1 = Nothing
Set WR1 = Nothing