Макрос для извлечения информации из интернета.

[KuroiRyuu]

Нужен макрос для работы со списком, который действует n циклов, количество которых равно номеру любой последней заполненой строчки.
Список содержит ячейки с гипперссылками на нужный ресурс в ввиде
=ГИПЕРССЫЛКА("http://ссылка";"Посмотреть в интернете")
Макрос жестко привязан к номерам строчек и столбцов в R1C1 и должен извлекать ссылку из ячейки с гипперссылкой, и дополнять ее параметрами. Получать по этой ссылке текстовую таблицу из интернета, и найти в ней ячейку со словами "в наличии" или "на заказ". Далее скопировать все что левее этих слов в одну ячейку, а все что правее в другую. Повторить это действие еще два раза для следующих ячеек.

Ну вот затравка закончена, вообщем я вообще не знаю VBA, даже незнаю можно ли/нужно ли там объявлять переменные. В жизни только с Паскалем здоровался и с СИ чутка.
Алгоритм я продумал, а как написать все не знаю.

Начало макроса
есть целочисленная переменная n
есть целочисленная переменная x
есть целочисленная переменная y
есть строчная переменная l

n = количество строк на листе 1(вроде есть какая-то функция LastRow)
x = 1
Пока n>0 делай


      Если RxC7(ячейка с ссылкой) = 0(или null я  не знаю как лучше )
             n=n-1
             x=x+1


      В любом другом случае
                   l = "ссылка" из RxC7{=ГИПЕРССЫЛКА("http://ссылка";"Посмотреть в интернете")} + "&how=aprice"

                        Импорт таблицы из интернета в ячейку R1C1 на листе 2(вся таблица будет в столбце 2)
                                   {"URL;http://образец", Destination:=Range("$A$1")) - вот здесь я даже не представляю как связать URL  с переменной}
                                            

                    y=9
                    Сделать активной ячейку R1C2 на листе 2

                    Трижды выполнить цикл
                                             Найти далее ячейку во втором столбце с текстом " в наличии" или "на заказ"
                                                   Сделать ячейку активной
                                                       Скопировать все что левее искомого текста в ячейке в ячейку RxCy находящуюся на листе 1
                                                                   y=y+1
                                                        Скопировать все что правее искомого текста в ячейке в ячейку RxCy находящуюся на листе 1
                                                                   y=y+1
                     Конец цикла
             n=n-1
             x=x+1
Конец цикла
Конец макроса

Все это дело по-идее будет повторяться около 3000 раз

Напишите как это будет в VBA

[motorway]

Нужны уточнения.
Если готовы заплатить за работу, могу сделать.
skype:ktmtramway