Help with recording data from one sheet to another

[Kiwi den]

I have a spreadsheet that our salesmen fill in
Sheet 1 From A1 through to K1, this sheet is used to record stock taken.
What I would like is on sheet2 to keep a record for each transaction from sheet 1
This would be in cells A1 – K1, and would list down in the next available row for each new transaction
Not sure is a formula would do this or thru VBA

EG;
Sheet 1
A1= Blue, B1 = KF3PB1, C1 = 04/12/2020, D1 = Ken, E1 = Courier, etc
Then Sheet 2
A1= Sheet 1 A1, B1= Sheet 1 B1, C1 = Sheet 1 C1 etc
Then if sheet 1 is used again then the next available row (A2 – K2) would be filled, leaving the info in Row A

Your help or suggestions would be much appreciated

 

[My Aswer Is This]

Would you please tell me the two sheet names.
Like sheet named Alpha if the enter sheet
And sheet named "Bravo" is the sheet to copy too.
Using Sheet1 and Sheet2 is normally not a good way.
And the script will be activated when you enter a value in Column E
Will that work? Assuming you have already entered all your data in column A B C and D

 

[My Aswer Is This]

I misread:
Last cell to fill in would be K
So script will run when you enter value in Column K
I'm assuming A to K would now be filled in.

 

[My Aswer Is This]

Have not heard back from you so put this script in the sheet where you plan to enter the values into. Sheet name is not important. The script will run when you enter any value into column K
But in my script the sheet name of the sheet we want to copy cells into is named "Bravo"
Modify to your needs.

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/13/2020  10:16:29 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    If Target.Column = 11 Then
        Dim Lastrow As Long
        Lastrow = Sheets("Bravo").Cells(Rows.Count, "K").End(xlUp).Row + 1
        Cells(Target.Row, 1).Resize(, 11).Copy Sheets("Bravo").Cells(Lastrow, 1)
End If
End Sub

 

[Kiwi den]

Sorry, time differences, Thanks I will give it a go

 

[Kiwi den]

Thanks works a treat

 

[My Aswer Is This]

Thanks works a treat

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.