Solved: Subtotal needs modifying vba

[Shazam]

I have a code that acts like a subtotal. But I would like it to be modified. Please look at the small example attachment. It will give you a better visual sense.



Sub Subtotal()

For Each NumRange In Columns("A").SpecialCells(xlCellTypeConstants, 23).Areas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 2).Formula = "=SUM(" & SumAddr & ")"
c = NumRange.Count
Next NumRange
NoData:

End Sub

[Bob Phillips]

Sub Subtotal()

For Each NumRange In Columns("A").SpecialCells(xlCellTypeConstants, _
xlTextValues + xlErrors + xlLogical + xlNumbers).Areas
SumAddr = NumRange.Address(False, False)
c = NumRange.Count
If c > 1 Then
With NumRange.Offset(c, 0).Resize(1, 2)
.Formula = "=SUM(" & SumAddr & ")"
.Font.Bold = True
End With
End If
Next NumRange
NoData:

End Sub

[Shazam]

Thank You so much xld it works great.:hi: