Data Input Form

Are you saying you want all lines entered in "Input Screen" to go to new lines in the "Data Table", and then blank the sheet "Input Screen"?

This code will do what I described, but.... you have a worksheet change event going on on the Input Screen, so when A2 changes, it tries to do stuff with "Sheet3" which does not exist, so you will have to modify that to work.

Sub data_move()

Dim ws_src As Worksheet 'the sheet with the source data
Dim ws_dest As Worksheet 'the sheet where the data is going
Dim lr_src As Long 'last row with data in source
Dim lr_dest As Long 'last row with data in destination
Dim i As Long 'loop variable

Set ws_src = Worksheets("Input Screen")
Set ws_dest = Worksheets("Data Table")
lr_src = ws_src.Range("A" & Rows.Count).End(xlUp).Row
lr_dest = ws_dest.Range("A" & Rows.Count).End(xlUp).Row + 1 'adding 1 to last row to make it the first blank line
For i = 2 To lr_src
    ws_dest.Range("A" & lr_dest).Value = ws_src.Range("A" & i).Value
    ws_dest.Range("C" & lr_dest).Value = ws_src.Range("B" & i).Value
    ws_dest.Range("D" & lr_dest).Value = ws_src.Range("C" & i).Value
    lr_dest = lr_dest + 1
Next i
ws_src.Range("A2:A" & lr_src).ClearContents

End Sub