Sub Full_Stock()
Dim Stock(), G_List(), Goods(), F_List(), Periods() As Date, Period%
Dim i&, t&, f&, Nums()
Stock = Application.WorksheetFunction.Transpose(Range("A1").CurrentRegion) ' рабочий массив
Period = CDate("25.07.2014") - CDate("31.12.2013") ' количество дней всего, может меняться
' список всех дат:
ReDim Periods(1 To Period)
Periods(1) = CDate("01.01.2014")
For i = 2 To Period
    Periods(i) = Periods(i - 1) + 1
Next
' перечень товаров:
With CreateObject("scripting.Dictionary")
    For i = 2 To UBound(Stock, 2)
        t = .Item(Stock(1, i))
    Next
    G_List = .Keys
End With
' перечень показателей
With CreateObject("scripting.Dictionary")
    For i = 2 To UBound(Stock, 2)
        t = .Item(Stock(3, i))
    Next
    F_List = .Keys
End With
'Debug.Print "Сейчас строк: " & UBound(Stock, 2) - 1
Debug.Print "Должно получиться строк: " & (UBound(G_List) + 1) * Period * (UBound(F_List) + 1)
With CreateObject("scripting.Dictionary")
    For i = 2 To UBound(Stock, 2)
        .Item(Stock(1, i) & "|" & Stock(2, i) & "|" & Stock(3, i)) = Stock(4, i)
    Next
    For i = 0 To UBound(G_List)
        For t = 1 To Period
            For f = 0 To UBound(F_List)
                If Not .exists(G_List(i) & "|" & Periods(t) & "|" & F_List(f)) Then
                    .Item(G_List(i) & "|" & Periods(t) & "|" & F_List(f)) = 0
                End If
            Next
        Next
    Next
    Goods = .Keys
    Nums = .Items
    Debug.Print "Получилось строк: " & .Count
End With

'    ReDim Preserve Stock(1 To 4, 1 To UBound(Goods) + 2)
'    For i = 2 To UBound(Stock, 2)
'        Stock(1, i) = Split(Goods(i - 2), "|")(0)
'        Stock(2, i) = CDate(Split(Goods(i - 2), "|")(1))
'        Stock(3, i) = Split(Goods(i - 2), "|")(2)
'        Stock(4, i) = Nums(i - 2)
'    Next
'    With Sheets.Add
'        .Range("A1").Resize(UBound(Stock, 2), 4) = Application.WorksheetFunction.Transpose(Stock)
'    End With
End Sub