Macro to sort data into totals & %'s

Thanks Foxguy for your quick response. A couple of things:

1/ When adding up the total number of trains for each HC, if Column L is blank, do not count these as part of total, only cells with a number in.
2/ I made an error about the definition of trains 'on time'. It is any train arriving 10 minutes or less, which includes negative numbers, which are in fact arriving early.
3/ Any entry in HC (column B) starting with '0' not to be included in totals (if that's too difficult don't worry about it).

Thanks again for your help. Kevin.

Kevin;

I abhor ever deleting data, so I left it alone, just didn't count it.
Try this file Copy of Performance Data Dump1-2.zip I didn't debug it at all. Didn't have time. If it has a bug, it'll have to wait until tomorrow.

Kevin;

One last request. The 'ran', 'on time' and '% on time' has been done for each HC. Can this also be done for each ORIGIN (column F). This will then give me the number of journeys from each location and their 'on time' and '% on time' figures. On thing to bear in mind is that some locations appear under more than one 'lettered' tab. 'Port of Tyne' as an example appears under 'F' tab and 'N' tab. I would like a separate total under each tab for each location.

It can be done. The easiest way would be to re-sort the data for Origin on each tab, then count for each Origin, the same way HC was counted. Would you want data on each sheet sorted by HC or Origin when it's done?

Kevin;

Try this file Copy of Performance Data Dump2.zip

Kevin;

Sorry, I've been away for a few days. Here's a new file Copy of Performance Data Dump3.xls.
I changed the name of the sub that counts. You can call it as many times as you want.

Count_Column sh, "G", "AB", iLastColumn

sh is the sheet that is getting counted
"G" is the column you want counted
"AB" is the column where you want the results stored.
iLastColumn is a variable that stores the last column used, so that the FormatFilterSortAndPasteToSheet() can autofit enough columns

 
           Count_Column sh, "G", "AB", iLastColumn
           Count_Column sh, "F", "W", iLastColumn
           Count_Column sh, "B", "R", iLastColumn
           .Range(.Cells(1, 1), .Cells(1, iLastColumn)).EntireColumn.AutoFit

Just make sure that the last call to Count_Column() is the order that you want the sheet to be left in.