Macro to delete rows with a Zero value. Macro seems to be in continual loop

Hi all,

As part of a macro i have created- I inserted a piece of code that I drafted from another forum:

Dim LR As Long, i As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
    If Range("B" & i).Value = 0 Then Rows(i).Delete
    Next i

I thought I would be able to just copy and paste it into my VBA code but it has cause my macro to get stuck and not finish.

I have attached the entire macro code if this is required.
Any legend out there have any ideas?

Thanks.
J