Debug print in Zellen umleiten

Sub Z() 'Anzahl Vorkomniss pro Wert in Spalte P zählen
Dim objDic As Object, varVal As Variant, lngZeile As Long
Set objDic = CreateObject("scripting.dictionary")
For lngZeile = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
varVal = Cells(lngZeile, 16).Value
objDic(varVal) = objDic(varVal) + 1
Next
For Each varVal In objDic
Debug.Print varVal, objDic(varVal)
Next
objDic.RemoveAll
Set objDic = Nothing
End Sub