I am filtering manually. the subtotal is showing in O194 cell. But When I am
filtering this rows will disappear. That is the problem . End of the rows is
not working properly while filtering

with thanks
Pol



"Mike H" wrote:

How are you filtering? on the worksheet or with a macro. In either case if
you include the formula cell in the filtered range you'll hide it

Mike

"pol" wrote:

Thanks Mike,

Still that problem exist . When I am filtering the record the subtotal will
disappear. But at the same time I am removing the all filter , the subtotal
wil be shown.

Please help Mike
With thanks
Pol

"Mike H" wrote:

I see my response to your last post worked because your using the code. I
thought it hadn't helped because you never bothered responding.

Perhaps this will solve your currect problem

lastrow = Cells(Rows.Count, "O").End(xlUp).Row
Range("O" & lastrow + 1).Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")"

Please feel free to let me know if it does!!

Mike

"pol" wrote:

Please help to show the subtotal under the last column + 1 of O . I am using
the following command. But the problem is while filtering the record the
subtotal is not displayed in the last column of the retrieved rows. Please
help

Range("O" & LastRow).Select
ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & LastRow - 1 & ")"

With thanks
Pol