How can I simplify this macro so it loops through certain ranges, I am trying to skip subtotal functions

[jtt2]

Sub MyFormulaAdder()

Range("C12").Formula = "=" & Range("C12").Value & "+" & Range("D12").Value
Range("C13").Formula = "=" & Range("C13").Value & "+" & Range("D13").Value
Range("C14").Formula = "=" & Range("C14").Value & "+" & Range("D14").Value

Range("C18").Formula = "=" & Range("C18").Value & "+" & Range("D18").Value
Range("C19").Formula = "=" & Range("C19").Value & "+" & Range("D19").Value
Range("C20").Formula = "=" & Range("C20").Value & "+" & Range("D20").Value
Range("C21").Formula = "=" & Range("C21").Value & "+" & Range("D21").Value
Range("C22").Formula = "=" & Range("C22").Value & "+" & Range("D22").Value
Range("C23").Formula = "=" & Range("C23").Value & "+" & Range("D23").Value
Range("C24").Formula = "=" & Range("C24").Value & "+" & Range("D24").Value
Range("C25").Formula = "=" & Range("C25").Value & "+" & Range("D25").Value

End Sub

 

[Herakles]

Sub MyFormulaAdder()

Range("C12").Formula = "=" & Range("C12").Value & "+" & Range("D12").Value
Range("C13").Formula = "=" & Range("C13").Value & "+" & Range("D13").Value
Range("C14").Formula = "=" & Range("C14").Value & "+" & Range("D14").Value

Range("C18").Formula = "=" & Range("C18").Value & "+" & Range("D18").Value
Range("C19").Formula = "=" & Range("C19").Value & "+" & Range("D19").Value
Range("C20").Formula = "=" & Range("C20").Value & "+" & Range("D20").Value
Range("C21").Formula = "=" & Range("C21").Value & "+" & Range("D21").Value
Range("C22").Formula = "=" & Range("C22").Value & "+" & Range("D22").Value
Range("C23").Formula = "=" & Range("C23").Value & "+" & Range("D23").Value
Range("C24").Formula = "=" & Range("C24").Value & "+" & Range("D24").Value
Range("C25").Formula = "=" & Range("C25").Value & "+" & Range("D25").Value

End Sub

Try this on a copy of your data.

Public Sub subLooping()
Dim rng As Range
    
    For Each rng In Range("C12:C14,C18:C25").Cells
        rng.Value = (rng.Value + rng.Offset(0, 1).Value)
    Next rng
    
End Sub