Count Cells Based On A Background Color

Ok try this one

Sub Test()
    Dim Counter As Long
    Dim c, r As Long
    Dim RowsCount, ColumnsCount As Long
    
    RowsCount = Sheets("Price+Qty_Changes").Range("J:AE").Rows.Count
    ColumnsCount = Sheets("Price+Qty_Changes").Range("J:AE").Columns.Count
    
    For c = 1 To ColumnsCount
        For r = 1 To RowsCount
            If  Sheets("Price+Qty_Changes").Cells(r, c).Interior.ColorIndex = 3 Then
                Counter = Counter + 1
            End If
        Next r
    Next c
    MsgBox Counter
End Sub

But it takes too much time to loop...