Bomdia!!

No seu anexo não tem a aba Plan1

Att

Bom dia!!

Tente assim

Sub AleVBA_113287()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
     
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
     
    Set ws1 = ThisWorkbook.Worksheets("PCH - Em trânsito")
    Set ws2 = ThisWorkbook.Worksheets("Plan1")
     
    ws1.Range("a1").Copy ws2.Range("A65536").End(xlUp)(2)

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
     
End Sub

Att

@alexandrevba
Desculpe, descuido meu...está oculta.

@alexandrevba
Obrigado pelo suporte, mas acredito que este macro esteja apenas copiando da aba "Plan1" e não copiando depois da ultima linha preenchida na aba "PCH - Em trânsito" =/

Bom dia!!

Você pretende copiar a formula de A1 da guia Plan1 para guia PCH - Em trânsito, em qual coluna?

Att

Boa tarde!

Precisaria na coluna "A".
Neste caso, seria adicionada uma copia da linha da aba "Plan1" na linha "41", e ao usar o macro novamente, deverá copiar e colar na linha 42, e assim respectivamente.

Boa tarde!!

Desculpe eu não estou conseguindo entender...

Na guia Plan1 coluna A, tem dado somente na célula A1

=SE(I1="";"";PROCV(I1;Plan1!F:H;3;FALSO))

Eu não faço idéia deo que você precisa
Att

Desculpe, acho que não fui claro rs
Na aba "PCH - Em transito", cada uma das linhas trata-se de um processo.
As celulas preenchidas dessas linhas são apenas as que não tem formulas, então, queria apenas conseguir fazer uma macro que crie uma nova linha abaixo da ultima existente, com a mesma formatação e formulas, mas com as demais celulas prontas para preenchimento, entende?

Boa noite!!

Seria algo desse tipo?

Sub PCH()
'Eu trabalho na Panpharma Distribuidora de MEDICAMENTOS, vc trab na Pfiser?
    Worksheets("PCH - Em trânsito").Range("a65536").End(xlUp).EntireRow.Copy
    Worksheets("PCH - Em trânsito").Range("a65536").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormats
    Worksheets("PCH - Em trânsito").Range("a65536").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
End Sub

Att

Por pouco! era isso mesmo que eu queria, mas o macro está me retornando os campos preenchidos da linha que foi copiada, e eu só queria as formulas...
mas eu adaptei o macro aqui, colocando a linha da forma que eu quero na aba "Itens", e copiando sempre de lá...deu certo !

Ficou assim:

Sub novo()
Application.ScreenUpdating = False
    Sheets("Itens").Select
    Rows("90:90").Select
    Selection.Copy
    Worksheets("PCH - Em trânsito").Range("a65536").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormats
    Worksheets("PCH - Em trânsito").Range("a65536").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormulas
    Sheets("PCH - Em trânsito").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

E sim, trabalho na Pfizer

Muito obrigado pela ajuda!!!!