Sub ertert()
Dim x, y(), i&, k&, n&, rw&, cl&

x = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 0 To UBound(x)
        .Item(x(i)) = i + 2
    Next i

    x = Sheets("отсюда").Range("A1").CurrentRegion.Value
    ReDim y(1 To UBound(x, 1), 1 To 13): cl = 1

    For i = 2 To UBound(x)
        If .Exists(x(i, 1)) Then    'ФИО продавца
            rw = .Item(x(i, 1))
        Else
            k = k + 1: .Item(x(i, 1)) = k
            y(k, 1) = x(i, 1): rw = k
        End If

        If .Exists(x(i, 3)) Then
            cl = .Item(x(i, 3))
        Else
            n = n + 1: .Item(x(i, 3)) = n: cl = n
        End If
        y(rw, cl) = y(rw, cl) + x(i, 2)
    Next i
End With

With Sheets("сюда")
    .Range("A3").CurrentRegion.Offset(2).ClearContents
    .Range("A3").Resize(k, UBound(y, 2)).Value = y()
    .Activate
End With
End Sub

Sub ertert()
Dim x, y(), i&, k&, n&, rw&, cl&
Dim mn, yr, s$
mn = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
yr = Array(2015, 2016, 2017)    'можно, например, так: yr = Array(2016, 2017, 2018, 2019)
x = Sheets("отсюда").Range("A1").CurrentRegion.Value
ReDim y(1 To UBound(x) + 2, 1 To (UBound(mn) + 1) * (UBound(yr) + 1) + 1)

With CreateObject("Scripting.Dictionary")
    .CompareMode = 1: k = 1
    For n = 0 To UBound(yr)    'years
        For i = 0 To UBound(mn)    'months
            k = k + 1: .Item(mn(i) & yr(n)) = k    '"месяц&год" - номер столбца
            y(1, k) = yr(n): y(2, k) = mn(i)
        Next i
    Next n

    cl = 1: k = 2
    For i = 2 To UBound(x)
        If .Exists(x(i, 1)) Then    'ФИО продавца
            rw = .Item(x(i, 1))
        Else
            k = k + 1: .Item(x(i, 1)) = k
            y(k, 1) = x(i, 1): rw = k
        End If

        s = x(i, 3) & x(i, 4)    '"месяц&год"
        If .Exists(s) Then
            cl = .Item(s)
        End If
        y(rw, cl) = y(rw, cl) + x(i, 2)
    Next i
End With
y(1, 1) = "Уникальное имя продавца"

With Sheets("сюда")
    .Range("A1").CurrentRegion.ClearContents
    .Range("A1").Resize(k, UBound(y, 2)).Value = y()
    .Activate
End With
End Sub