Confused With modify Insert Row below base on cell value

Hello,
I found the code like this:

Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row

For i = 1 To LR
    If Range("C" & i).Value > 0 Then
       Rows(i).EntireRow.Insert
        Exit For
    End If
Next i

with a code that will insert a row but above the target cell in column "C" when value greater than Zero, how to modify the code to insert the blank row below?
thanks in advance