The following assumes there is no data below your table and your destination for the names is in the "O" column.
Sub FilterMove()
Dim lRow As Long
lRow = Cells(Rows.Count, 4).End(xlUp).Row
Range("K3").Select
Range("K3").FormulaR1C1 = _
"=AND(NOT(ISNUMBER(RC[-6])),OR(RC[-5]=""X"",RC[-4]=""X"",RC[-2]=""X"",RC[-1]=""X""))"
Selection.AutoFill Destination:=Range("k3:K" & lRow)
Selection.AutoFilter Field:=8, Criteria1:="TRUE"
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("O3").Select
ActiveSheet.Paste
Selection.AutoFilter Field:=8
Application.CutCopyMode = False
Selection.AutoFilter
Columns("K:K").Select
Selection.ClearContents
End Sub
Bookmarks