Alert User of Duplicate Entry

I spoke too soon. Cell A4 on the Tracker sheet is linked to cell A1 on the Store sheet. This causes a problem when a search for cell A4 (tracker) is done on column A of the store sheet. I changed the range from A:A to A2:A2000, but there is still an issue. What am I missing?

Aside from not wanting to duplicate records, cell A4 from the Tracker sheet is pasted into collumn A on the store sheet and the same is done for A8 on the Tracker to collumn B on the store sheet. Clearly Beau saw what I was trying to accomplish but I am adding this because my guess is that the linking was inefficient. Sorry if I have confused anything. Just ask and I'll clarify. Thanks

Got it. Just needed to delete the two links I had in A1 and B1 on the "Store" tab and change the code to what's below (the only change was making A1, A4 and B1, A8. THANKS AGAIN!

Option Explicit

Sub NameUpdate()
Dim wsT As Worksheet:   Set wsT = ThisWorkbook.Sheets("Tracker")
Dim wsS As Worksheet:   Set wsS = ThisWorkbook.Sheets("Store")
Dim vFIND As Range
Dim NR As Long
Application.ScreenUpdating = False

On Error Resume Next
Set vFIND = wsS.Range("A:A").Find(wsT.[A4], LookIn:=xlValues, LookAt:=xlWhole)
If Not vFIND Is Nothing Then
    MsgBox "Already entered"
    Exit Sub
End If

NR = wsS.Range("A" & wsS.Rows.Count).End(xlUp).Row + 1

With Sheets("Tracker")
    wsS.Range("A" & NR).Value = .Range("A4")
    wsS.Range("B" & NR).Value = .Range("B8")

    .Range("A4:A5").Value = .Range("AL1:AL2").Value
    .Range("A8:A9").Value = .Range("AL1:AL2").Value

    .Range("H1") = "1"
    .Range("W3") = "1"
End With

ThisWorkbook.Save
    
Application.ScreenUpdating = True
End Sub