copy values for each row separately to a new sheet

Leap

I suggest instead that you use the Worksheet_Change event. Remember that event is triggered when enter is pressed in a cell (even if it doesn't change the value). In the code below (and the attached file) I do that but the first 9 lines check if a row contains 5 numeric values and if the user is ready to create a new sheet. I've done that since if you later correct a sheet, you should have a sheet that reflects that.

I changed the sheet name line too since you included Numeric (which was a vraiable with no value).

In the bold lines further down, I transfer values from the row (or Dta range I created) to the new sheet, adding two for P2 in new sheet:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A5:E12")) Is Nothing Then Exit Sub
Dim Dta As Range, Resp As VbMsgBoxResult

Set Dta = Cells(Target.Row, 1).Resize(1, 5)

For Each Cll In Dta.Cells 'look at cells in A:E
    If IsNumeric(Cll) = False Or Len(Cll) < 1 Then Exit Sub 'leave if any cells are empty or alphabetic
Next Cll

Resp = MsgBox("Enough data- want to create new or replacement sheet now?", vbYesNo, "Number values in columns A:E") 'offer user new sheet
If Resp = vbNo Then Exit Sub

Set Sh = Sheets.Add

With ActiveSheet
    .Move after:=Sheets(Sheets.Count)
    .Name = Sheets.Count - 1
    .Range("A1:P12").Borders.Weight = xlMedium
    .Range("A1:P12").HorizontalAlignment = xlCenter

    With .Cells(1).Resize(1, 16)
        .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "tt", "weight ", " 0.9", "ll", " 1.34")
        .Interior.ColorIndex = 53
        .Font.Bold = True
        .Font.Color = vbWhite
    End With

Dim sh1 As Worksheet
Set sh1 = Sheets("main")

    .Range("A2") = sh1.Range("E3").Value
    .Range("C2") = Dta(5) ' get E value from Dta range
    .Range("D2") = sh1.Range("E" & Target.Row).Value
    .Range("F2:K2").Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4")
    .Range("N2") = Dta(3) ' from column C
    .Range("P2") = Dta(1) + Dta(2) ' add A & B values

    .Columns("A:P").EntireColumn.AutoFit

End With

End Sub

To try this, enter a cell in completed row 5 say and press Enter. On a new row, you'll get  the requestor only after all columns are complete.

In the file, I've also made some revisions (to your sheet "main" of your workbook)  as follows...

In column F, to remove #DIV0! messages, replace =E5/(A5+B5+C5) with (e.g. for F5):

=IFERROR(E5/(A5+B5+C5),"")

. Also in column E, I replaced =D5-(C5*$C$4+B5*$B$4+A5*$A$4) with (e.g. for E5):

=D5-SUMPRODUCT($A$4:$C$4,A5:C5)

Hope this works for you.

.Range("D2") = sh1.Range("E" & Target.Row).Value