Boa noite EDLEY,

Substitui o código por esse:

Sub EXECUTAR_TESTE()
Dim UltL As Long

UltL = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets("FORM").Range("B5:B8").Copy
    Sheets("BD").Range("A" & UltL).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Sheets("BD").Range("A" & UltL - 1 & ":D" & UltL - 1).AutoFill Destination:=Sheets("BD").Range("A" & UltL - 1 & ":D" & UltL), Type:=xlFillFormats
    Sheets("FORM").Range("B5, B7:B8").ClearContents
End Sub

Qualquer coisa da o grito.
Abraço

Bom dia Bernardo,

Realmente é isso ai!

Só não consegui aplicar na planilha que realmente pretendo usar exemplo:
vejo que na formula vc usa o intervalo B5:B8, só que na planilha que pretendo usar um dos intervalos é c4:c15; c17:c20

Vou te enviar a planilha... dá uma olhada ai....

Deixei bem claro em vermelho em cada aba pra vc entender... apaguei também minhas gigantescas macros....

Ajuda ai Bernardo!

Sera mais simples se deixar as "macros" que hoje voce usa e funciona, e tambem identificar qual a celula que tem formula

Ok Reinaldo,

Vou fazer isso, depois posto a planilha indicando a celula que possui a formula...

Boa noite Reinaldo,

Planilha pronta.
Agora vamos a Formula...
Na aba CAD.CRED celula C9 formatei a celula para que apareça o dia da semana referente a data em C8.
Uso a formula =SE(ÉCÉL.VAZIA(B5);"";B5) até ai tudo bem. mas quando uso a macro para lançar em BD.CRED ela desconfigura no caminho.

preciso usar também o mesmo processo em CAD.DEB.

Deixei sem a formula para que voc entenda melhor o processo, se estiver protegido não tem senha.

Ajuda ai....

Edley, alterei apenas a rotina Cad_Cred e Limpar_Cad_Cred, veja se lhe atende, e se atender tente estender o raciocinio para as demais

Sub CAD_CRED()

Dim uLin As Long
    uLin = Sheets("BD.CRED.").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1

Application.ScreenUpdating = False
    Sheets("BD.CRED.").Range("A" & uLin) = Sheets("CAD.CRED").Range("C4").Value
    Sheets("BD.CRED.").Range("B" & uLin) = Sheets("CAD.CRED").Range("C5").Value
    Sheets("BD.CRED.").Range("C" & uLin) = Sheets("CAD.CRED").Range("C6").Value
    Sheets("BD.CRED.").Range("D" & uLin) = Sheets("CAD.CRED").Range("C7").Value
    Sheets("BD.CRED.").Range("E" & uLin) = Sheets("CAD.CRED").Range("C8").Value
    Sheets("BD.CRED.").Range("F" & uLin) = Sheets("CAD.CRED").Range("C9").Value
    Sheets("BD.CRED.").Range("G" & uLin) = Sheets("CAD.CRED").Range("C10").Value
    Sheets("BD.CRED.").Range("H" & uLin) = Sheets("CAD.CRED").Range("C11").Value
    Sheets("BD.CRED.").Range("I" & uLin) = Sheets("CAD.CRED").Range("C12").Value
    Sheets("BD.CRED.").Range("J" & uLin) = Sheets("CAD.CRED").Range("C13").Value
    Sheets("BD.CRED.").Range("K" & uLin) = Sheets("CAD.CRED").Range("C14").Value
    Sheets("BD.CRED.").Range("L" & uLin) = Sheets("CAD.CRED").Range("C15").Value
    Sheets("BD.CRED.").Range("M" & uLin) = Sheets("CAD.CRED").Range("C17").Value
    Sheets("BD.CRED.").Range("N" & uLin) = Sheets("CAD.CRED").Range("C18").Value
    Sheets("BD.CRED.").Range("O" & uLin) = Sheets("CAD.CRED").Range("C19").Value
    Sheets("BD.CRED.").Range("P" & uLin) = Sheets("CAD.CRED").Range("C20").Value

    LIMPAR_CAD_CRED
    
    Application.ScreenUpdating = True
End Sub
Sub LIMPAR_CAD_CRED()
    Range("C4,C5,C6,C7,C8,C10,C11,C12,C13,C14,C15,C17,C18,C19,C20").ClearContents
    Range("C4").Select
End Sub