sum column VBA

[billandrew]

Good morning all

Found some code on the forum to sum a column. Unfortunately I am incurring an error. Can anyone assist.

code =

Dim lastrow As Long


lastrow = Range("D" & Rows.Count).End(xlUp).Row
.Range("D" & lastrow + 1).Value = WorksheetFunction.Sum(.Range("D5:D" & lastrow))


End With

Also need to sum adjacent columns "E:L" individually

 

[Joe4]

.Range only works if you are inside a WITH statement.
If not, drop the period in front of the word Range.

 

[steve the fish]

Something like this perhaps?

For i = 4 To 12
    lr = Cells(Rows.Count, i).End(xlUp).Row
    If lr > 4 Then Cells(lr + 1, i) = WorksheetFunction.Sum(Range(Cells(5, i), Cells(lr, i)))
Next

 

[billandrew]

works perfect Thank you..

 

[billandrew]

another need

how would I format the range. font bold, interior color = yellow