Bom dia!!

Tente algo assim (se necessário favor adaptar).

Dentro do módulo de planilha, insira o código abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Target.Value <> "" Then Target.EntireRow.Copy Sheets("Plan2").Range("A" & Rows.Count) _
    .End(xlUp).Offset(1, 0)
    Target.Select
    MsgBox "Pedido copiado !", vbExclamation
End Sub

Att

Boa tarde, alexandrevba

O código funcionou, sou estou apanhando para colocar valores por alguns campos possui formulas.
Poderia me ajudar, com mais essa ?

Bom dia, Srs.

Depois de quebrar um pouco a cabeça consegui montar uma POG que atendece a minha necessidade.

Segue Código

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim LinhaOriginal, PlanilhaOriginal
    
LinhaOriginal = ActiveCell.Row
PlanilhaOriginal = ActiveSheet.Name

Application.ScreenUpdating = False

    If Intersect(Target, Columns("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub

        If Target.Value <> "" Then
            
            Rows(LinhaOriginal).Copy
            Sheets("Plan2").Select
            Sheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
            ActiveSheet.Paste
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=False
              
            Application.CutCopyMode = False
         
            Sheets("Plan1").Select
         
        End If
        
            Target.Select
            
    Exit Sub

Application.ScreenUpdating = True
    
End Sub