VBA суммирование в диапазоне

Sub macro1()
Dim objConnection As Object, rs As Object
Set objConnection = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ActiveWorkbook.Path & "" & ActiveWorkbook.Name & ";" & _
"Extended Properties=""Excel 12.0;HDR=No"";"
sqlStr1 = "Select a9.Данные, Count(a9.Данные) as Количество from ("
sqlStr1 = sqlStr1 & "Select a8.f1 as Данные from ("
sqlStr1 = sqlStr1 & "SELECT a1.f1 FROM [Лист1$c4:c12] as a1"
sqlStr1 = sqlStr1 & " union all SELECT a2.f1 FROM [Лист1$d4:d12] as a2"
sqlStr1 = sqlStr1 & " union all SELECT a3.f1 FROM [Лист1$e4:e12] as a3"
sqlStr1 = sqlStr1 & " union all SELECT a4.f1 FROM [Лист1$f4:f12] as a4"
sqlStr1 = sqlStr1 & " union all SELECT a5.f1 FROM [Лист1$g4:g12] as a5"
sqlStr1 = sqlStr1 & " union all SELECT a6.f1 FROM [Лист1$h4:h12] as a6"
sqlStr1 = sqlStr1 & " union all SELECT a7.f1 FROM [Лист1$i4:i12] as a7"
sqlStr1 = sqlStr1 & ") as a8) as a9 Group by a9.Данные"
rs.Open sqlStr1, objConnection, 3, 3
Cells(14, 3).CopyFromRecordset rs
Set rs = Nothing
Set objConnection = Nothing
End Sub