Help to amend code

Hello,

The below code does the following:

Any cell with a 0 in the specified range gets #N/A put in the cell to the right of it.

How do I change it so:

Any cell with a 0 in the specified range gets #N/A put in the cell to the right of it UNLESS it has a value bigger than 0, in which case it gets a formula put in it?

Sub IfZero2()
Dim myRange As Range

For Each myRange In Sheets("Chart Data").Range("B15:B31")
 If myRange = 0 Then
  myRange.Offset(0, 1) = "#N/A"
 End If
Next myRange
End Sub

Thank you, however I have noticed 1 thing that is different to what I first thought. The formula is different in each cell, because it's a formula to work out the cumulative amount. How can I do this please?

Sub IfZero2()
Dim myRange As Range

    For Each myRange In Sheets("Chart Data").Range("B15:B31")
      Select Case myRange
        Case Is = 0
          myRange.Offset(0, 1) = "#N/A"
        Case Is > 0
          myRange.Offset(0, 1).Formula = "=SUM(B15:" & myRange.Address & ")"  ' //Enter formula inside quotation marks
      End Select
    Next myRange
End Sub

Thank you...