Macro to pull same consonant words

Find attached data on a1 , going at 34172 words

Expected results on B and C

Looking for words with same consonants but different vowel combination
It should also be able to pull words with two vowels , 5 same consonants ,
example BANTERS BARNETS BARTONS BRETONS BRISANT BRUNETS BUNTERS BURNETS BURSTEN BURTONS

The macro should also be able to handle 8 letter words , attached is 7 letter word length

AttachmentSize
same consonants.xlsm502.23 KB