how can i add a counter for printing excel spread sheet?

Not sure what you mean by a "counter", but you can use the code below...

Sub printit()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

or you can use the macro recorder to record your actions and then play them back...

Read more about macro recorder in the sources:

Not sure exactly what calculations you allude to but if a case of having data on a page and then using autosum for example if you had four columns like this: units sold, price per unit, units returned, refund price and you wanted to collate this into a summary you could use a pivot table, should work with 27 calculations go to data or tools should be in there (sorry no excel at home and my heads gone blank). By the way macros can present a security risk.