Bucle de Excel VBA sin Do

Después de verlo aproximadamente, el problema no está en los bucles do y, sino en la instrucción if, en la que

Else

If Right(Trim(Cells(4 + n, 1 ).Value ), 2) = "emitir" Entonces

No sé si quieres escribir este párrafo así

ElseIf Right(Trim(Cells(4 + n , 1).Value) , 2) = "Emitido" Entonces

O quieres escribir

Else

If Right(Trim(Cells(4 + n, 1).Value) , 2) = "Emitido" entonces

.

.

end if

end if

, si es lo último, falta un end if.