i"m formating excel sheet by invoking vba code

in that i’m crating a sum of entire column by this below code

Sub AutoSum()

Dim Rng As Range

Dim c As Range

Set Rng = Range(“E1:E” & Range(“E1”).End(xlDown).Row)

Set c = Range(“E1”).End(xlDown).Offset(1, 0)

c.Formula = “=SUM(” & Rng.Address(False, False) & “)”

Set Rng = Range(“F1:F” & Range(“F1”).End(xlDown).Row)

Set c = Range(“F1”).End(xlDown).Offset(1, 0)

c.Formula = “=SUM(” & Rng.Address(False, False) & “)”

Set Rng = Range(“G1:G” & Range(“G1”).End(xlDown).Row)

Set c = Range(“G1”).End(xlDown).Offset(1, 0)

c.Formula = “=SUM(” & Rng.Address(False, False) & “)”

Set Rng = Range(“H1:H” & Range(“H1”).End(xlDown).Row)

Set c = Range(“H1”).End(xlDown).Offset(1, 0)

c.Formula = “=SUM(” & Rng.Address(False, False) & “)”

End Sub

i wants to make bold that sum value by code can anyone help me ?