Sub Кнопка1_Щелчок()
' Выяснила, что эта функция возвращает число квартала
MsgBox DatePart("q", Range("A2"))

With Sheets("Лист1")
' так как мне нужно посчитать количество медалей в квартале, мне нужно организовать цикл
Dim q1, q2, q3, q4, b As Integer
q1 = 0
q2 = 0
q3 = 0
q4 = 0

For d = 2 To 9
   If DatePart("q", Range("A" & d)) = "1" Then
  q1 = q1 + Range("b" & d)
            MsgBox q1
            Else
    End If
 Next
End With
End Sub