Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
If Not Intersect(Target, Range("p9")) Is Nothing Then
With Range("r15:ac15")
Set c = .Find(Range("p9"), , xlFormulas, xlWhole)
If Not c Is Nothing Then
If Month(Range("p9")) = Month(Cells(15, c.Column)) Then
Range("q16:q29").Copy
Cells(16, c.Column).PasteSpecial Paste:=xlPasteValues
End If
End If
End With
Application.CutCopyMode = False
Range("p9").Activate
End If
Application.EnableEvents = True
End Sub