transferring information into a new line on another tab using macro button

[rmcc]

Hi,
I have the following input sheet on tab 1 of my excel:

and the following on tab 2:

I want to insert a macro button that transfers the relevant info from the input sheet into the table on tab 2 (e.g. the lot, the name, cat. number, x number and the value of x)
The problem I'm having is that each time a new input is completed within the input template, I need the new info to populate the next consecutive line of my database on tab 2. Is this possible?

Any help with this would be greatly appreciated!

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab 2 name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Change the tab 2 name (in red) to suit your needs. Close the code window to return to your sheet. Enter a value and press the ENTER key. No button is necessary.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("D:D,E:E")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim desWS As Worksheet
    Set desWS = Sheets("Sheet2")
    Select Case Target.Row
        Case Is = 4
            desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1) = Target
        Case Is = 5
            desWS.Cells(desWS.Rows.Count, "B").End(xlUp).Offset(1) = Target
        Case Is = 6
            desWS.Cells(desWS.Rows.Count, "C").End(xlUp).Offset(1) = Target
        Case Is = 7
            desWS.Cells(desWS.Rows.Count, "D").End(xlUp).Offset(1) = Target
        Case Is = 10
            desWS.Cells(desWS.Rows.Count, "E").End(xlUp).Offset(1) = Target
    End Select
    Application.ScreenUpdating = True
End Sub