Makro : Indsum formel sum vertikalt

Dim CelleID As Range

For Each CelleID In Range("E1", Range("E1").End(xlDown)).Cells

If CelleID.Value Like "Afvigelse" Then
  CelleID.Value = "Budget næste år"
  CelleID.Interior.Color = RGB(204, 255, 204)
  CelleID.Offset(0, 1).Formula = XXX
End If
Next

XXX skulle gerne være en sumfunktion som summerer Offset(0, 2): Offset(0, 13)

Kan ikke lige greje hvordan det gøres