if strngrd1.Cells[18, iRows]='есть' then
Сделал таким образом. Получается чепуха какая-то

Вводим первые 2 строчки с событием "есть" и еще 2 строчки с событием "нет". Он в таблицу 1 добавляет 4 строки нумерует их 1,2. Во таблице 2 также добавляется 4 строки и нумеруется в конце 3,4.
А надо чтобы
в таб.1 добавились 2 строчки и номера 1,2.
В таб.2 добавились 2 строчки и номера 1,2.
И не знаю как так сделать, подскажите пожалуйста