Your code seems to sum columns F and G and write them out in column B, as well as the title "Total".
Can I suggest a different way of getting your totals?
Using End(xlUp) we can go to the last row of a column and then look Up to the first cell that isn't empty and get the row number - the last row in your range (usually).
We can them use that row number in our VBA:
Or am off track?Code:Sub myTotals() Dim BotF As Integer Dim BotG As Integer BotF = Range("F" & Rows.Count).End(xlUp).Row BotG = Range("G" & Rows.Count).End(xlUp).Row Range("a1") = "Total" Range("a2") = "Total" Range("b1") = "=SUM(F1" & ":F" & BotF & ")" Range("b2") = "=SUM(G1" & ":G" & BotG & ")" End Sub