The following will write out the results of the countif:
Option Explicit
Sub Stack()
Dim MySheet As Worksheet
Dim FoundRng As Range, RangeToSelect As Range
Dim LastRow As Long, xx As Long
'assign our sheet to avoid confusion
Set MySheet = ThisWorkbook.ActiveSheet
'locate the "Rating" cell
Set FoundRng = MySheet.Cells.Find(What:="Rating", LookAt:=xlWhole, MatchCase:=False)
If FoundRng Is Nothing Then
MsgBox ("No matching cell found, exiting sub!")
Exit Sub
End If
'determine the boundaries of the target range for populating the formula
LastRow = MySheet.Cells(50000, FoundRng.Column).End(xlUp).Row
'assign the target range
Set RangeToSelect = Range(MySheet.Cells(FoundRng.Row, FoundRng.Column), MySheet.Cells(LastRow, FoundRng.Column))
'write out the countif results
MySheet.Cells(LastRow + 4, FoundRng.Column).Select
For xx = 7 To 1 Step -1
ActiveCell.Value = Application.WorksheetFunction.CountIf(RangeToSelect, xx)
ActiveCell.Offset(1, 0).Select
Next xx
End Sub