Output Tally Of Multiple Columns

I have been working on a little vba project and have almost got there with help from others, but the final part needs to have a tally a number of columns and and produce the tally results to a new worksheets - the code that need proof reading /reviewing is below - it is not working correctly as it is not tallying correctly and at times seems to miss counting the last row - so could you review and suggest or make required changes so that it will work on the attached test file.

WHAT IS NEEDED IS;

1. Column D contains names -strings which are repeated such Fred Flintstone so for Fred and others would like to have a summary tally of how many times each worker has instances of a value appearing in columns I, J, K, L and P, R ,S, T and U.

With the output summary worksheet called "WORKER TALLY" and having the headings for each columns tallied from row 5 being headings for each column tally see attached example.

2. Then do same again for Column E - Names so for example the name Peter Pan and others would like to have a summary tally of how many each worker has instances of a value appearing in columns I, J, K, L and P, R ,S, T and U. With the output summary worksheet called "Names" and having the headings for each columns tallied from row 5 being headings for each column tally see attached example.



Sub workertally()
Dim b() As Variant
Dim NewWs As Worksheet
Dim j As Integer, i As Integer
Dim a As Range, v As Range, r As Range, c As Range
j = 1
Set a = Range("E6", Range("E" & Rows.Count).End(xlUp))
Set c = Range("E5", Cells(5, Columns.Count).End(xlToLeft))
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare