Часть скрипта VBS для Excel
 

Пожалуйста, помогите написать часть скрипта.
Задача такая:
1. Если столбец 2 екселя содержит "Стул", то в этой же строке столбца 3 необходимо присвоить "S1", потом взять значение из следующей нижней строки столбца 3 и присвоить ей "Sn1".
2. Если в столбце 2 екселя опять содержится "Стул", то в этой же строке столбца 3 необходимо присвоить "S2", потом взять значение из следующей нижней строки столбца 3 и присвоить ей "Sn2".
3. И опять тоже самое ....
Приложил файл ексель, по идее должно получиться так:
ячейке D3 присваивается переменная "S1", D4 - присваивается переменная "Sn1"
ячейке D5 присваивается переменная "S2", D5 - присваивается переменная "Sn2"
ячейке D7 присваивается переменная "S3", D5 - присваивается переменная "Sn3"

Тогда:
S1 будет равно "Иванов", Sn1 будет равно "21",
S2 будет равно "Петров", Sn2 будет равно "55",
S3 будет равно "Иванов", Sn3 будет равно "два 02",