I'm currently using the following code:

Dim lastRow9 As Long
lastRow9 = Worksheets("Working Sheet").Cells(Rows.Count,
"B").End(xlUp).Row
Range("a2").Formula = "=IF(ISNA(VLOOKUP(RC[1],tbl,
3,FALSE)),"""",VLOOKUP(RC[1],tbl,3,FALSE))"
Range("A2").AutoFill Destination:=Range("A2:A" & lastRow9)

Current Results
Results:
Column A Column B
Armstrong Jason Brenner
Armstrong Jack Kimball
Armstrong Sue Mitchell
Armstrong Lola Lumbar
Armstrong Genis Pinkerton

Kelly Jill Adler
Kelly Kim Gonzales
Kelly Lilly Lopez
[and so forth]

WHAT I'M LOOKING FOR:

Column A Column B
Armstrong Jason Brenner
Armstrong Jack Kimball
Armstrong Sue Mitchell
Armstrong Lola Lumbar
Armstrong Genis Pinkerton
Armstrong
Kelly Jill Adler
Kelly Kim Gonzales
Kelly Lilly Lopez
Kelly
[and so forth]