Hio Seals,
Welcome to VBAX.
I'm not sure if I've got you right, but have a look at the following. It finds dates for the last 7 days in column B, checks for a corresponding value in column P and if found, highlights the row yellow.
Option Explicit
Option Base 1
Sub Test()
Dim MyDates As Range, c As Range, i As Long
Dim ToMatch, Tmp As String, MyStr As String, FirstAddress As String
ToMatch = Array("AMG", "ARA", "ARD", "ARM")
Set MyDates = Range("B1:B" & [B65536].End(3).Row)
'Set range of dates to be found
For i = Int(Now() - 7) To Int(Now())
With MyDates
Set c = .Find(i, LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Tmp = 0
'Check corresponding values in col P
MyStr = Right(c.Offset(0, 14), 3)
On Error Resume Next
Tmp = Application.WorksheetFunction.Match(MyStr, ToMatch, 0)
If Tmp > 0 Then c.EntireRow.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
Next
End Sub