[Spirosgr]

Καλημέρα και καλή Σαρακοστή σ' όλους.

Δεν θα σχολιάσω, το πως είναι γραμμένοι οι κώδικες και γιατί πρέπει να υπάρχει loop, step κλπ.
Μια παρατήρηση γενική, σε ένα θέμα που πρέπει να προσέχεις.
Ο τίτλος ρουτίνας, είναι numberformat.
Επειδή όμως, υπάρχει έκφραση, NumberFormat καλό είναι να αποφεύγεται.
Τίτλοι εκατομμύρια...

Η παρακάτω ρουτίνα, μορφοποιεί τα κελιά της E στήλης
σε αριθμό με 2 δεκαδικά και κόκκινο τα αρνητικά και
στην τελευταία γραμμή, τελευταίο κελί για την ακρίβεια,
αποδίδει το άθροισμα τους με ίδια μορφή συν bold γραμματοσειρά.

Sub FormatPlusTotal()
    Dim Lastrow As Long, Rtotal As Range, rng As Range
    Lastrow = Cells(Rows.Count, 5).End(xlUp).Row + 1
    Set Rtotal = Range("e" & Lastrow)
    Set rng = Range("e1:e" & Lastrow)
    rng.NumberFormat = "#,##0.00;[Red]-#,##0.00"
    Rtotal = Application.WorksheetFunction.Sum(Range("e1:e" & Lastrow - 1))
    Rtotal.Font.Bold = True
End Sub

Σημείωση:
Έγινε test σε 2007, 2010, 2013
Υπάρχει περίπτωση, να χρειαστεί, να αλλάξετε στην γραμμή μορφοποίησης,
την θέση του , με την .