Печать по условию

[Alesa90]

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

Sub Прайс()
KolVo = Sheets("киоски").Cells(1, 2) 
For i = 2 To KolVo
Sheets("прайс").Cells(7, 10) = Sheets("киоски").Cells(i, 1) 
Sheets("прайс").Cells(8, 10) = Sheets("киоски").Cells(i, 3) 
Sheets("прайс").Cells(9, 10) = Sheets("киоски").Cells(i, 2)
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True 
Next i
End Sub

Делаю так, не выходит...:

If Worksheets("киоски").Range("E2:E245") <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
end if

[Alesa90]

Блин, затупил с диапазоном, сделал так

If Worksheets("киоски").Range("F4").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

Если несколько условий для одной строки и каждого столбца этой строки написать, то работает как надо. Проблема в том, что строк 300+, и писать для каждой строки по 5 условий не айс. Мб кто мыслишку подкинет?