Переделать макрос в VB

В данный момент макрос выбирает и выводит уникальные значения в столбик перебирая их по столбцам, мне же нужно, чтобы такая логика сохранилась с первым столбцом, а последующая выборка и отсеивание и вывод происходило по строкам.
СМОТРИ ФАЙЛ В ПРИЛОЖЕННИИ. Там всё наглядно.

Option Explicit

Sub Extract_Unique()
Dim x, avArr, li...