O formato contabil, assim como alguns outros, são apenas mascaras de visualização/exibição na planilha. Labels e Textboxs "devolvem" seus conteúdos/valores como string(texto), assim valores numericos devem ser "convertido" antes de inseridos na planilha.
Como não sei a maneira que salva os dados experiemente algo +/- assim
......=CDbl(VBA.Replace(Label_5.Caption.Text, "R$", ""))
viewtopic.php?f=10&t=23471

O formato contabil, assim como alguns outros, são apenas mascaras de visualização/exibição na planilha. Labels e Textboxs "devolvem" seus conteúdos/valores como string(texto), assim valores numericos devem ser "convertido" antes de inseridos na planilha.
Como não sei a maneira que salva os dados experiemente algo +/- assim
......=CDbl(VBA.Replace(Label_5.Caption.Text, "R$", ""))
viewtopic.php?f=10&t=23471

Desculpe a demora Reinaldo, com a sua ajuda fiz assim e deu certo.

Sheets("Vendas Feitas").Range("L3").Value = CDbl(Me.Label_6.Caption)

Aqui resolvi uma parte, agora onde devo aplicar o mesmo no comando abaixo ?

Cells(Linha, 14 + j) = Me.ListView1.ListItems(I).ListSubItems(j)

      'Laço das linhas e colunas para extrair os valores da listview e passar para o planilha
    For I = 1 To Regs
        Linha = I + 2
        Cells(Linha, 14) = Me.ListView1.ListItems(I)
    For j = 1 To Me.ListView1.ColumnHeaders.Count - 1
        If j = 1 Then
              Cells(Linha, 14 + j) = Me.ListView1.ListItems(I).ListSubItems(j)
              GoTo Pular
              End If
        If j = 2 Then
        GoTo Pular
       End If
        If j > 2 And j < 8 Then
           Cells(Linha, (14 + j) - 1) = Me.ListView1.ListItems(I).ListSubItems(j)
        End If
Pular:

        Next
        
    Next

esqueci de dizer, este codigo acima por ser um loop, agrega a copia para 7 colunas da planilha , onde :

2 delas sao numeros
2 delas na propria plan ja esta formatado para valor contabil
3 delas sao formato texto

segue a imagem como é lançado na planilha conforme o codigo apresentado acima

Veja porem que aqui resolvi depois da dica do Reinaldo e ter achado uma referencia na net exatamente com meu problema relatado.

Sheets("Vendas Feitas").Range("F3").Value = CDbl(Me.Label_1.Caption)
Sheets("Vendas Feitas").Range("G3").Value = CDbl(Me.Label_2.Caption)
Sheets("Vendas Feitas").Range("H3").Value = CDbl(Me.Label_3.Caption)
Sheets("Vendas Feitas").Range("I3").Value = CDbl(Me.Label_4.Caption)
Sheets("Vendas Feitas").Range("J3").Value = CDbl(Me.Label_5.Caption)
Sheets("Vendas Feitas").Range("K3").Value = Forma_Pag.Caption
Sheets("Vendas Feitas").Range("L3").Value = CDbl(Me.Label_6.Caption)

Segue o codigo inteiro:

Private Sub PAGAMENTO_Click()

 Application.ScreenUpdating = False
 
 On Error Resume Next

Caixas_Abertos.TextBox6.Value = 1

If TextBox_Nome = "" Then
Mensagem2.Show
Exit Sub
End If

If PAGAMENTO.Caption = "FORMA DE PAGAMENTO" And Total.Value = "" Then
Mensagem3.Show
Exit Sub
End If

If PAGAMENTO.Caption = "FORMA DE PAGAMENTO" And Total.Value > 0 Then

XPagamento2.Caixa.Value = "Caixa1"


'Aqui seleciona qual Caixa ira usar XPagamento
XPagamento2.TextBox1.Value = Format(Caixa1.Total, "R$ #,##0.00")

Empresa1.Show
Exit Sub
End If

'----------------------------------------------------------------------------
If PAGAMENTO.Caption = "PROCESSAR A VENDA" Then

TextBox20.Value = Plan44.Range("B3").Value + 1

If PAGAMENTO.Caption = "PENDÊNCIA" Then
Label_7 = "PENDÊNCIA"
Else
Label_7 = "PAGO"
End If
  
    Dim I     As Integer
    Dim j     As Integer
    Dim Regs  As Integer
    Dim Linha As Long
    Dim Caminho As String

    Regs = Me.ListView1.ListItems.Count
    Plan44.Activate
    
 Dim K, w As Double
 K = Contagem.Value
 w = K + 2
 Rows("3:" & w).Insert Shift:=xlDown
 
     Range("N3").Select
    
      'Laço das linhas e colunas para extrair os valores da listview e passar para o planilha
    For I = 1 To Regs
        Linha = I + 2
        Cells(Linha, 14) = Me.ListView1.ListItems(I)
    For j = 1 To Me.ListView1.ColumnHeaders.Count - 1
        If j = 1 Then
              Cells(Linha, 14 + j) = Me.ListView1.ListItems(I).ListSubItems(j)
              GoTo Pular
              End If
        If j = 2 Then
        GoTo Pular
       End If
        If j > 2 And j < 8 Then
           Cells(Linha, (14 + j) - 1) = Me.ListView1.ListItems(I).ListSubItems(j)
        End If
Pular:

        Next
        
    Next


 Sheets("Vendas Feitas").Range("U3").Value = Sheets("Operadores").Range("E2")
 Sheets("Vendas Feitas").Range("M3").Value = Label_7.Caption
 Sheets("Vendas Feitas").Range("A3").Value = Nome_Empresa.Caption
 Sheets("Vendas Feitas").Range("B3").Value = TextBox20.Value
 Sheets("Vendas Feitas").Range("C3").Value = TextBox_Codigo.Value
 Sheets("Vendas Feitas").Range("D3").Value = TextBox_Nome.Value
 Sheets("Vendas Feitas").Range("E3").Value = Data.Caption
 Sheets("Vendas Feitas").Range("E3").Value = Format(Date, "d mmmm, yyyy")
 Sheets("Vendas Feitas").Range("F3").Value = CDbl(Me.Label_1.Caption)
 Sheets("Vendas Feitas").Range("G3").Value = CDbl(Me.Label_2.Caption)
 Sheets("Vendas Feitas").Range("H3").Value = CDbl(Me.Label_3.Caption)
 Sheets("Vendas Feitas").Range("I3").Value = CDbl(Me.Label_4.Caption)
 Sheets("Vendas Feitas").Range("J3").Value = CDbl(Me.Label_5.Caption)
 Sheets("Vendas Feitas").Range("K3").Value = Forma_Pag.Caption
 Sheets("Vendas Feitas").Range("L3").Value = CDbl(Me.Label_6.Caption)
  
'----------------------------------------------

TextBox20.Value = TextBox20.Value + 1
Total.Value = ""
TextBox_Desconto = ""
ListView1.ListItems.Clear

'Limpar
Forma_Pag = ""
TextBox_Codigo = ""
TextBox_Nome = ""
TextBox_Perfil = ""
TextBox_Detalhes = ""
TextBox_Visitas = ""
TextBox_Compras = ""
TextBox_STATUS = ""
TextBox_Nutricionista = ""
TextBox_Consulta = ""

PAGAMENTO.BackColor = &HE0E0E0
PAGAMENTO.Caption = "FORMA DE PAGAMENTO"
Nome_Empresa = "Olá, " & Sheets("Operadores").Range("E2")
Empresa = "CAIXA 01 - LIVRE"
Frase = ""
Empresa.Caption = "Selecione o Tipo de Produto ou sua Marca !"
 
 '-------------------------------
       
With Me.MultiPage1
.Value = 0 'abre o multipage na 1ª pagina
.Style = fmTabStyleNone ' Habilita o estilo sem botoes (ou display abas)
End With
'--------------------------------

End If



Application.ScreenUpdating = True
MsgBox "Venda Feita"
End Sub

acho que pra facilitar , se houver uma forma de salvar na plan os dados ou como Texto , referindo-se as colunas da plan O, Q , R, ou como numero para as demias colunas ja ta bom demais, .

Pois como informei na propria Plan as colunas S e T, ja estao fomatadas para contabil, portanto ao entrar como numero ja vai aparecer o R$ .....