Pasting new row in table, only if row doesn't already exist

Hello everyone,
I am working on a project where I am pasting rows of information into a table. I have a button that copies a row from one place and pastes it into the first empty row in a table. I want to prevent it from pasting the row if the exact same row already exists in the table. What is the best way to do this?

Here is the code to paste the row upon the button click:

Private Sub SaveButton_Click()

Sheets("Sheet1").Range("A2:BI2").Copy
Sheets("Database").Range("A60000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
Sheets("Database").Range("A60000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Thank you for your help.

See if this will work for your button code.

Please Login or Register  to view this content.

It will not be fast if you have a large database.

That worked great JLGWhiz. Thank you.

Will it check many rows?
I mean if I have 25 rows with data in Sheet1, can VBA compare each row and copy in Database unique rows only?

Originally Posted by R12345

Will it check many rows?
I mean if I have 25 rows with data in Sheet1, can VBA compare each row and copy in Database unique rows only?

The code provided is based on what you are currently doing with your button, which is copying a single row from one sheet to another. the code does check all rows on the destination sheet to determine if there is a duplicate. If you want to change your parameters, I suggest you start a new thread and provide the details of what you want to do.

Regards. JLG