Boa Tarde

Estou começando a aprender vba e não consigo compreender o que há de errado com a seguinte estrutura.
Sempre que rodo a macro o vba acusa NEXT SEM FOR.

For r = j To 4 Step -1
If Not Range("H" & r).Value = 0 Then 'Range("H" & r).EntireRow.Delete
  ElseIf Not Range("E" & r).Value = "" Then
    ElseIf Not Range("F" & r).Value = "" Then
           Else
           Range("H" & r).EntireRow.Delete
           Range("H" & r).Value = ""
Next r

Se Alguém puder me Explicar.