I am trying to write a macro to fill a cell formula with +value(cell located
at Control+UpArrow) which reference the grand total line of a pivot table.
The row number may change after refresh so something like R[-7]C would not
work.

The basic commend is:
ActiveCell.End(xlUp).Select
Try to fine-tune it to your needs.
Micky


"AL" wrote:

I am trying to write a macro to fill a cell formula with +value(cell located
at Control+UpArrow) which reference the grand total line of a pivot table.
The row number may change after refresh so something like R[-7]C would not
work.

Thanks. The syntax helps. May be I should elaborate what I am trying to do.

Cell E77 is grand total of a pivot table and total line row will fluctuate
depending on my filter.
On cell E90, I want to add a formula of +value(E77) i.e. ControlUpArrow.
I type my macro as: ActiveCell.FormulaR1C1 =
"=+VALUE(ActiveCell.End(xlUp).Select)"
It returns an "Application-defined or object-defined error"
I type my macro as: ActiveCell.FormulaR1C1 =
"+VALUE(ActiveCell.End(xlUp).Select)"
It returns +VALUE(ActiveCell.End(xlUp).Select) in Cell E90

Any suggestions?





"מיכ�ל (מיקי) �בידן" wrote:

The basic commend is:
ActiveCell.End(xlUp).Select
Try to fine-tune it to your needs.
Micky


"AL" wrote:

I am trying to write a macro to fill a cell formula with +value(cell located
at Control+UpArrow) which reference the grand total line of a pivot table.
The row number may change after refresh so something like R[-7]C would not
work.