Программа имитации парехмахерской в Excel

[Igor 1]

Ребят помогите кто в VBA силен. Не работает, когда клиент должен выйти из очереди то программа выдает ошибку, как ее можно обойти/ликвидировать, что использовать???
Public Sub Master()
For i = 1 To 4
If Cells(6, 1 + i * 2) > 0 Then Cells(6, 1 + i * 2) = Cells(6, 1 + i * 2) - 5 на этом месте вылет так как идет отчет времени до завершения обслуживания клиента, все делится на такт равный 5 минутам, когда клиент обслужен а время равно 0 то он удаляется и мастер должен принять состояние свободен. Как можно обойти и установить условие чтобы он принимал состояние свободен и избежать ошибки?

If Cells(6, 1 + i * 2) > 0 Then Cells(3, 1 + i * 2) = "Занят"

If Cells(6, 1 + i * 2) = 0 And Cells(4, 1 + i * 2) > 0 Then