Skip to content

Instantly share code, notes, and snippets.

Sub getSCORE()
'
' subtotal Macro
Columns("A:A").Select
Selection.subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _