add subtotal with vba in table

[Robert1311]

Who can help me out?

In attached file I created,as an example, a table in cells A1-G27.
What I need is a subtotal for pcs, VATand Amount per Registration Nr. as displayed in cells I1-P7.
In the cell "subtotal" the "registration Number" should also be included in this cell.

The original table has 6000 rows. For each registration number I have now to insert a subtotal by hand....

A solution is much appreciated!

kind regards, Robert

[Marc L]

Why do not use Excel basics worksheet functions, why VBA ?

[Robert1311]

Hi Marc, I like to use vba in order to save time by automate this task. Now I have to insert subtotals my self. In the future this task has to be done more often.Thanks for your reply

[Marc L]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded by The Noob Simulator ! *
'

'
    Range("A1").Select
    ActiveCell.ListObject.Unlist
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub  

Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

[Robert1311]

Hi Marc, It works great!! Thanks very much! I clicked the star icon Grt Robert

[Marc L]

Thanks for the rep' !

Code was created just by activating Macro Recorder and using Excel Data SubTotal function as everyone can do …