Macro to pull same consonant words

This one by Karedog , requirement to get below results with words on a and b , so
what i am asking for is not exactly similar

ALEURON ALEURONE
TRENAIL TREENAIL
RATIONS ORATIONS
STEARIN STEARINE
ESTRONE OESTRONE
INERTIA INERTIAE
GRATINE GRATINEE
OUTRANG OUTRANGE
MINUTIA MINUTIAE

Sub Test()
  Dim a, b, c As New Collection, i As Long, j As Long, r As Object, strKey As String, v, w1, w2
  With Sheets("Sheet1")
    a = .Range("A1").CurrentRegion.Value
    Set r = CreateObject("VBScript.RegExp")
    r.Global = True
    r.IgnoreCase = True
    With CreateObject("VBScript.RegExp")
      .Global = True
      .IgnoreCase = True
      .Pattern = "([AEIOU])"
      For j = 1 To UBound(a, 2)
          For i = 1 To UBound(a, 1)
              If Len(a(i, j)) Then
                 strKey = .Replace(a(i, j), "")
                 On Error Resume Next
                    c.Add Key:=strKey, Item:=Array(New Collection, New Collection)
                 On Error GoTo 0
                 c(strKey)(j - 1).Add a(i, j)
              End If
          Next i
      Next j
      ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
      i = 0
      For Each v In c
          If v(0).Count * v(1).Count Then
             For Each w1 In v(0)
                 r.Pattern = .Replace(w1, "$1+")
                 For Each w2 In v(1)
                     If r.Test(w2) Then
                        i = i + 1
                        b(i, 1) = w1
                        b(i, 2) = w2
                     End If
                 Next w2
             Next w1
          End If
      Next v
    End With
    If i Then .Range("G1").Resize(i, 2).Value = b
  End With
End Sub

Aligw thank you for pushing , but can you please stop pushing , my time is allocated into
fighting the bad economic times , so i dont have time at all for this

The definition of a forum is to help , so i am asking for help , simple

They are people around in here don't mind tackling the case

I have come up with an idea that should in achieving what i need

I have got alphgram of the words in this format , assuming
they are on A1 and B1 need formula on C to pull consonants and D pull
vowels , thus would expect NTR AND AEIO for and for ETAERIO i would
expect TR and AEIIO , formula to point on cell b to pull the needful ,
then i will use sort A to Z and use Highlight Duplicate Values using CF

NOTAIRE AEINORT
OTARINE AEINORT
ETAERIO AEEIORT
ANEROID ADEINOR
AILERON AEILNOR
ALERION AEILNOR

AliGW kindly push the thread to Formulas , thank you

my time is allocated into fighting the bad economic times , so i don't have time at all for this

... so what is the economic value of your request (and many very similar requests) ??????

Written by some expert , it sorts me out with the below two

=consonants(B1)
=vowels(B1)

HTML Code: