Sub totals in a macro

[dkuyper]

I am trying to run a macro that will select data that matchs certain criteria for a list of names from a selected sheet and then sub-total this data in another sheet. The macro runs fin for most names in the list but comes up with a run time error when a name in the list has not data to sub-total. The error is as follows:

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(10), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Is there any way to get the macro to ignore names that have no data?

 

[dkuyper]

I've had a suggestion from somebody I work with but still require some help. Apparently because the sheets I'm trying to sub-total have 8 rows at the top of each sheet I can set the macro to count the number of rows in the sheet and if this is greater than 8 to run the sub-total if not then it should skip the sub-totaling. Would anybody know how the macro would need to be adjusted? The macro is currently set up as below:

Range("A1").Select
Application.DisplayAlerts = False
Application.EnableEvents = False
Range("A8:J8").Select
Selection.End(xlDown).Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(10), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

This selects a new sheet pastes in the top 8 rows and the runs the sub-total

Any help would be greatly appreciated.