Copy Data from different areas in a worksheet into a Table

Josh1012 · #1 09-19-2018, 11:40 PM

So I haven't quite found out how to do this yet, but I've got something to get started with. I'm thinking of a long winded method of using 10 "IF" statements with an else statement which deletes all rows and columns if the very last column is filled. Here's an example of what I've got so far, but it doesn't include all 10 IF statements as they just repeat themselves.

Code:

Sub CopyInputData()
Dim table As ListObject, text As String


text = "Data 1"
Set table = ThisWorksheet.ListObjects("Table9")


'So this will copy all my data to the second column of my table as long as it's empty

With table.DataBodyRange
If table.DataBodyRange(, 2) = " " Then
text.Copy Destination:=ThisWorksheet.Cells(25,2)
Sheets("GerotorSelection").Range("C2:C4").Copy
table.DataBodyRange(1, 2).PasteSpecial Paste:=xlPasteValues
Sheets("GerotorSelection").Range("E2:E4").Copy
table.DataBodyRange(4, 2).PasteSpecial Paste:=xlPasteValues
Sheets("GerotorSelection").Range("E13:E16").Copy
table.DataBodyRange(7, 2).PasteSpecial Paste:=xlPasteValues

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
copy data table from pdf to excel	DIMI	Excel	1	07-10-2018 11:40 PM
Looking to copy select cells in table using dropdown list to paste to new table in another worksheet	CaptainRetired	Excel Programming	18	01-04-2018 07:22 PM
Table - Allow Spellcheck and tick boxes in certain areas only	BarbW	Word	10	03-09-2016 01:59 PM
Appending unique data from one worksheet to existing data on another worksheet	EdStockton	Excel	1	08-06-2014 11:00 PM
Cannot copy ->paste table structure but data pastes ok	kangz	Word	1	04-24-2012 04:05 AM