Анпивот таблицы - быстрый перебор строк - VBA

Формулировка задачи:

Люди, здравствуйте. Есть таблица (типа таблица - диапазон, оформленный под таблицу). И он представлен в виде двумерной матрицы. Типа, товар-магазин-количество. Надо сделать анпивот таблицы. То есть перевести многомерную форму в плоскую таблицу. Для этого бегаю по всем строкам и всем столбцам и, если пересечение непустое, то сохраняю тройку значений (магазин-товар-количество). Но мне кажется, что должен быть способ быстрее, чем простой перебор всего, что есть в матрице. Какой-нибудь "выбрать только непустые ячейки"... Помогите, пожалуйста, ускорить процесс.

Решение задачи: «Анпивот таблицы - быстрый перебор строк»

textual
                            Листинг программы 
                        
                            For Each oneCell In myRange.SpecialCells(xlCellTypeConstants)