Hi, anrichards22,
according to your description worksheet After is not showing what I was expecting from reading your post (in Row 2 Second and Third are not to be found).
Maybe this code may lead towards what you are searching for (since posted in VBA)
Sub FirstTry()
Dim lngCounter As Long
Dim rngFound As Range
Dim rngCell As Range
For Each rngCell In Range(Cells(2, "L"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
Set rngFound = Range(Cells(rngCell.Row, "A"), Cells(rngCell.Row, "K")).Find(What:=Cells(1, rngCell.Column).Value, lookAt:=xlPart)
If Not rngFound Is Nothing Then
rngCell.Value = rngFound.Value
End If
Next rngCell
End Sub
Ciao,
Holger
Bookmarks