Shorten Codes

[SilentRomance]

Check this code

Cells(pbRowCur, 1).EntireRow.Insert xlDown
            Cells(pbRowCur, 1).Formula = "=(A" & pbRowCur - 1 & ")"
            Cells(pbRowCur, 3).Formula = "Sub Total"
            Cells(pbRowCur, 4).Value = "=SUM(SUBTOTAL(109,D" & sumToRow + 1 & ":D" & pbRowCur - 1 & "),F" & sumToRow & ")"
            Cells(pbRowCur, 5).Value = "=SUBTOTAL(109,E" & sumToRow + 1 & ":E" & pbRowCur - 1 & ")"
            Cells(pbRowCur, 6).Value = "=(D" & pbRowCur & " - E" & pbRowCur & ")"

Is there a way to shorten this codes guys?

 

[Fluff]

Not really, why do you want to?

 

[SilentRomance]

Not really, why do you want to?

when I run that code my PC slows down

 

[Fluff]

Shortening code does not necessarily make it quicker. Do you turn screen updating off & set calculation to manual?