Help to Shorten Code

Can anyone assist in shortening the below code

Dim LR As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
Range("F" & LR + 1).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("F2:F" & LR))
LR = Range("E" & Rows.Count).Offset(0, 1).End(xlUp).Row
Range("G" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("G2:G" & LR))
LR = Range("E" & Rows.Count).Offset(0, 2).End(xlUp).Row
Range("H" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("H2:H" & LR))
LR = Range("E" & Rows.Count).Offset(0, 3).End(xlUp).Row
Range("I" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("I2:I" & LR))
LR = Range("E" & Rows.Count).Offset(0, 4).End(xlUp).Row
Range("J" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("J2:J" & LR))
LR = Range("E" & Rows.Count).Offset(0, 5).End(xlUp).Row
Range("K" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("K2:K" & LR))
LR = Range("E" & Rows.Count).Offset(0, 6).End(xlUp).Row
Range("L" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("L2:L" & LR))
LR = Range("E" & Rows.Count).Offset(0, 7).End(xlUp).Row
Range("M" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("M2:M" & LR))
LR = Range("E" & Rows.Count).Offset(0, 8).End(xlUp).Row
Range("N" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("N2:N" & LR))
LR = Range("E" & Rows.Count).Offset(0, 9).End(xlUp).Row
Range("P" & LR + 0).Value = WorksheetFunction.SumIf(Range("E2:E" & LR), "PC STRAND - 1/2", Range("P2:P" & LR))
LR = Range("E" & Rows.Count).Offset(0, 1).End(xlUp).Row
Range("P" & LR + 0).Value = WorksheetFunction.Sum(Range("F" & LR + 0 & ":G" & LR + 0 & ":H" & LR + 0 & ":I" _
& LR + 0 & ":J" & LR + 0 & ":K" & LR + 0 & ":L" & LR + 0 & ":M" & LR + 0 & ":N" & LR + 0 & ":P" & LR + 0))

Thanks mikeTron, but I really need to keep the formulas in vba. There are many other things involved that is making it a necessary evil.

Any Suggestions I'm really struggling with this code

How rude! I will NEVER post in this forum again.