On Jul 19, 12:06 pm, wrote:
On Jul 19, 11:32 am, Joel wrote:





the problem is simple

from:
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula =
to:
NumRange.Offset(NumRange.Rows.Count, 0).

You only want the number of rows, not the total number of cells.

" wrote:
Can anybody pls help me to modify this code to make this work with
adjacent column(more than 1 coumn) i.e if my selection is A1:D20 -
instead of A1:A20
(The macro works fine for a selection of A1:A20 but not A1:D20)

Sub addsubtotalrange()
'

For Each NumRange In Selection.SpecialCells(xlConstants,
xlNumbers).Areas

SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula =
"=SUBTOTAL(9," & SumAddr & ")"

Next NumRange
'
End Sub

It's not good as I don't get the correct result from my formula -
which should subtotal cells in corresponding column only.
pls help

thxs- Hide quoted text -

- Show quoted text -

Your selection should still be A1:A20, but change resize(1,4)