抽出して並べ替えたい

初めまして 非常に悩んでいます。 エクセルシートの列に下記のようにデータが並んでいます。（文字列） AAA ｂｂｂ ｃｃｃ （空白） BBB ｄｄｄ eee （空白） AAA ｂｂｂ ｃｃｃ （空白） AAA eee ggg 並べ替え後 AAA AAA BBB bbb eee ddd ccc ggg eee 尚、列上でセル位置は任意で、空白行も任意です。（1つ以上です） できれば関数でお願いします。 VBAの場合、使用したことがないので詳しくお願いします。