Условное форматирование по средствам макроса - VBA

Формулировка задачи:

Здравствуйте, подскажите как макросом отформатировать таблицу

3	11571	89,42	3	7	В наличии	1
2	11792	61,56	3	7	В наличии	1
	12027	52,28	3	7	В наличии	1
	14877	55,4	3	7	В наличии	1
	40515	262,37	3	7	В наличии	1
	40524	217,56	3	7	В наличии	1
1	11398	301,36	3	7	В наличии	1

условие форматирования: если в строке первая ячейка пустая а во вторая нет, то выделить красным семь первых ячеек этой строки в противном случае ничего не менять и перейти к следующей строке.если в обеих ячейках пусто то прекратить форматирование.

Решение задачи: «Условное форматирование по средствам макроса»

textual
                            Листинг программы 
                        
                            Sub fdfs()
 
Set alltable = Range("A1").CurrentRegion
 
For i = 1 To alltable.Rows.Count
 
    If Cells(i, 1) = "" And Cells(i, 2) <> "" Then
    Range(Cells(i, 1), Cells(i, alltable.Columns.Count)).Interior.Color = 255
    End If
    
Next i
 
End Sub