Conditionally copying data from one sheet and adding as a new row to the end of Table1 in another sheet with a macro

[mateinone]

Hi

I have 2 worksheets
InputData
Products

Table1 exists in "Products" sheet.

On InputData
I have a table that the user inputs data into, it does a check to ensure that no lines of data exist.
I also have a named range "data_chk" in cell A2 that contains TRUE or FALSE as per the logic below.

So what I am wanting to do is

The User enters data into a table
That data is first checked to see if any of the products they are trying to enter exists
At the end of each row there is a simple data validation to this end and this determines if data_chk is TRUE or FALSE

When I run the macro...

If data_chk equals TRUE,
A message box should appear and say
We cannot upload your data as you are entering a product that already exists.

If data_chk equals FALSE
I want to copy the data (let's just say there are two rows of data and they are in in cells B9:H10, in fact I will be using the following as it could be 2 or could be 10 rows

Range("B9:H9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

So then with this data, I want to append it to the end of Table1 on the "Products Sheet".

 

[kanadaaa]

Can you share sample images of the two worksheets so we can see more easily what you want to do with the macro?

 

[MissingInAction]

If I understand correctly, you want to copy and paste your data at the bottom of a table (first empty row). I used this code for a similar purpose:

' Copy data entry and go to Data sheet
    Range("A5:L5").Select
    Selection.Copy
    Sheets("Data").Select
    Range("A2").Select
' Select last empty row
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
' Paste entry
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AA1").Select
' Go to Input sheet and clear entry
    Sheets("Input").Select
    Range("C5").Select
    Selection.ClearContents
    Range("E5:L5").Select
    Range("L5").Activate
    Selection.ClearContents
    Range("C5").Select

You'll just need to edit the sheet names.