VBA - CopyData and Clear Contents

[Jack_Amateur]

Hey guys,
I'm new to VBA and trying to put together a sheet where staff can input data, click a button and it will copy the input on a table on another worksheet and clear the contents on the original sheet. I'm hoping that when the button is clicked again it adds the data to the table and so on.

I've only managed to make the MsgBox with Yes/No, your guidance is most appreciated.

 

[Logit]

The first part is understandable. Ok .. good so far.

But, what does this mean :

" I'm hoping that when the button is clicked again it adds the data to the table and so on."

 

[Jack_Amateur]

Apologies, silly me;
The copied data is compiled onto a table and continues to be added each time the button is clicked, whilst clearing the input sheet for new data.

 

[Logit]

Option Explicit

Sub CpyPste()

Application.ScreenUpdating = False

        Sheets("Input").Range("A2:D2").Copy
        
        Sheets("Table").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        
        Sheets("Input").Range("A2:D2").Value = ""
        
        Sheets("Input").Range("A2").Select
        
        Application.CutCopyMode = False

Application.ScreenUpdating = True
End Sub

Download workbook : Copy Paste Other Sheet.xlsm