Копирование из ячейки по условию

[LiveLiveLive]

Всем Доброго времени суток!
Подскажите, а то сам не могу разобраться, т.к. не особо "шпрэхаю".
Задача стоит следующая, если в столбце G(в моем случая с 7-ой строки) есть какое-нибудь значение, а столбце H пусто, то необходимо произвести копирование из определенной ячейки в другую. Соответственно со столбцом H ситуация зеркальная, если в нем есть какое-нибудь значение, а в столбце G пусто то копируем другие ячеки. А когда в обоих столбцах G, H значение пустое, то цикл нужно остановить. Вставил сам код и приложил документы. У меня видимо проблема с самой переменной "tabl1", но не могу допетрить чего исправить. и еще как добавить второе условие? через "and" ругается. Спасибо

Сам код
*********************************** ****************
Sub test_test()
Windows("test3.xls").Activate
test78 = ActiveWorkbook.Name

i = 7
Do While Workbooks(test78).Sheets(1).Cells(i , 7) <> ""
i = i + 1
Loop
tabl1 = i + 1

For i = 7 To tabl1
If Workbooks(test78).Sheets(1).Cells(i , 7) = "" Then
Workbooks(test78).Sheets(1).Cells(i , 11) = Workbooks(test78).Sheets(1).Cells(i , 3)
Workbooks(test78).Sheets(1).Cells(i , 12) = Workbooks(test78).Sheets(1).Cells(i , 4)
ElseIf Workbooks(test78).Sheets(1).Cells(i , 8) = "" Then
Workbooks(test78).Sheets(1).Cells(i , 14) = Workbooks(test78).Sheets(1).Cells(i , 3)
Workbooks(test78).Sheets(1).Cells(i , 15) = Workbooks(test78).Sheets(1).Cells(i , 4)
End If
Next

End Sub
*********************************** *************************