Vowel hook search

In case I got it right you need to find all matches that contains letters.
Try this one.

Sub Button1_Click()
Dim wrdCount As Long
Dim arr
Dim i, j As Long

wrdCount = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
arr = Range("B1:B" & wrdCount)
j = 2
For i = 1 To wrdCount
    If InStr(1, arr(i, 1), Range("F2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("G2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("H2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("I2").Text, vbTextCompare) > 0 Then
        Range("K" & j).Value = arr(i, 1)
        j = j + 1
    End If
Next

End Sub