Adding rows Automatically in Excell

Is a way to add rows to one sheet that includes dat entered on another sheet or workbook.

I have been using the following code (copied from someone else) as a macro that I have assigned to a button on my sheet;

ub AddNewData()
' Dim 1Rows As Long
'With Range("Database")
' 1Rows= .Rows.Count + 1
' Range("Input") .copy Destination:=.Cells(1Rows, 1)
' .Resize (1rows).Name = "Database"
'End With
'End Sub

The problem is that this macro will run every time the button is hit which would allow multiple duplicate enteries.

Is there a way to change the code so that it will not add the rows unless it is a unique record?