Confused With modify Insert Row below base on cell value

[herukuncahyono]

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

[Palmetto]

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).Offset(1,0).EntireRow.Insert
        Exit For
    End If
Next i

[MarvinP]

Perhaps change
Rows(i).EntireRow.Insert to
Rows(i+1).EntireRow.Insert

[herukuncahyono]

hi Palmetto ,MarvinP

both suggestion works well
Thank you very much