Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim i As Long, lRow As Long, projNum As String
Dim aCell As Range
Dim wINP As Worksheet
Set wINP = ThisWorkbook.Worksheets("Trevose Tracker")
With wINP
lRow = .Range("D" & .Rows.Count).End(xlUp).Row
For i = lRow To 3 Step -1
projNum = .Range("D" & i).Value
Set aCell = .Range("D2:D" & i - 1).Find(What:=projNum, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _