Copy Data from different areas in a worksheet into a Table

[Josh1012]

Hi, I am currently trying to write a vba macro and assign it to a button so that it copies a few specific cells to a table. The table has 10 columns (this won't change) and 10 Rows. If I keep pressing the button I want it to copy the data to a different column that has not already been used. When the columns are full (All 10 columns have been used) and I press the button again, I want it to delete all the values in all columns and rows and then copy my data range to the first column again.


These are the the references to where I'm copying my data from:

Range ("C2:C4")
Range("E2:E4")
Range("E13:E16")

So I want the data to be copied in the first column which fills the first 10 rows in the first column. Then when I press the button again it copies the same data to the next column that hasn't already been used. I've set my table as:

Dim table As ListObject
Set table = ThisWorksheet.ListObjects("Table4")

The Table is located in:

Range("B25:K34")

I appreciate any help I can get