Option Explicit
Const CurYear = 2016
Sub tt()
    Dim I As Long, J As Long, L As Long
    L = 1
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To 12
        For J = 2 To Cells(2, Columns.Count).End(xlToLeft).Column
            With Cells(I + 2, J)
                If .Value > 0 Then
                    If .Interior.Color = 9359529 Then
                        Worksheets("Лист2").Cells(L, 1) = DateSerial(CurYear, I, .Value)
                        L = L + 1
                    End If
                End If
            End With
        Next
    Next
    Application.ScreenUpdating = True
End Sub