Hi - i'm trying to put a value in t 1

[Stripester]

Hi - i'm trying to put a value in the last row in col G.

The last row at present is 16, but the code below is only giving me the total for F4.

What am I doing wrong.

And out of interest - is it possible to put an actual formula in the cell?

LRow = Range("a65536&quot.End(xlUp).Row
Cells(LRow, 7).Value = Range("F4:F" & LRow).Value

Thankyou

Stripe

 

[Stripester]

Sorry - I forgot about the title!

Anyway can I answer part of my own question:

LRow = Range("a65536&quot.End(xlUp).Row
Cells(LRow, 7).Formula = Application.WorksheetFunction.Sum(Range("F4:F" & LRow))

Thanks

 

[Zathras]

Do you want the sum or a formula for the sum?

If you want the sum, you're done with what you have.
If you want a formula, use this:
[blue]

  LRow = Range("a65536").End(xlUp).Row
  Cells(LRow, 7).Formula = "=SUM(F4:F" & LRow & ")"

[/color]

 

[Stripester]

Thankyou Zathras,

Believe it or not I think that the only combination of " " that I didn't try to get it to work.

Thanks,

Stripe