Dynamic Sum across multiple columns

[westc4]

Hello,

I have the following code, what I need is to make the same sum formula to columns I through O

 Dim LR As Long
 LR = Range("H" & Rows.Count).End(xlUp).Row
 Range("H" & LR + 2).Formula = "=SUM(H4:H" & LR & ")"