Excel vba para substituir dados

[Luan Valle]

Senhores, bom dia!

 

Mais uma vez necessito da ajuda de vocês quanto a um código que não consigo criar de nenhuma forma. De modo geral, tenho uma planilha de lançamentos contábeis que meus clientes fazem, onde eu faço a exportação.

 

Quando faço a exportação, consigo apenas a primeira parte, a segunda deveria ser quase idêntica. Vou colocar abaixo o código que a planilha faz até aqui e o que eu queria que acontecesse.

 

Sub ExportarENTJAN()
    'Copiar Entradas
    ''JANEIRO
    
    Sheets("Ent_JAN").Select
    Range("A7:S302").Select
    Selection.Copy
    
    Sheets("Entradas").Select
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=True, Transpose:=False
    
    Sheets("Ent_JAN").Select
    Range("A7:S302").Select
    Selection.Copy
    
    Sheets("Entradas2").Select
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=True, Transpose:=False
End Sub

O que acontece é:

 

E o que quero que aconteça é que na planilha "Entradas2", a Coluna G contenha a letra "D" no lugar de todos os "C", na coluna S contenha o número 1 no lugar de todos os 2. Isso é padrão, sempre vai ter o C e o 2 nas colunas G e S, respectivamente.

 

Na coluna F constam as contas contábeis. Na planilha Entradas2 deveria estar a conta contábil relacionada a conta bancária, que estão na planilha "CADASTRO". Após tudo isso, a planilha "Entradas" deveria ficar conforme abaixo:

 

 

Deixarei abaixo de onde vem os dados copiados para estas planilhas:

 

 

 

É isso. Talvez seja simples a substituição das colunas G e S, mas a F tá me pegando.

 

Obrigado até aqui.

[Luan Valle]

Marcarei o tópico como resolvido pois, achei outra forma de fazê-lo. Apenas continuei a partir das colunas AA em diante e ocultei elas.