Totals

[Swifey]

I have written a macro to find the last blank cell in col F also then to total the sales value which is in column F but my code fails.

My code is as follows:

Range("F8").Select
    Selection.End(xlDown).Offset(1, 0).Select
    MyRow = ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-" & MyRow & " C:R[-1]C)"

Could you please help
Regards

 

[fairwinds]

You could:

a = Range("F8").End(xlDown).Offset(1, 0).Row
Cells(a, 6).Formula = "=SUM(F1:F" & a - 1 & ")"

 

[Swifey]

Sorry to bother you but there is part of your code I dont undertstand.

in your code "=SUM(F1:F" & a - 1 & ")" what is a - 1 doing?

Sorry to be a pain

 

[fairwinds]

a holds the row where the formula is put. You want to sum from row one to one row above the formula. (a-1)

 

[Swifey]

I see now what the 1 means thank you