Tested your macro and it gave an error here: 
With .FormatConditions.Add(Type:=xlExpression, Formula1:="=(MOD(ROW(E5),2)*(E5-E4<>1)=1)")
Translated the formula into my language and now the macro works smoothly. Since your formula looks fine, I'll leave it to you to find the trick, I can't see it.