ShMapping.Range(Cells(1, 14), Cells(ItemList.Count, 14)) = PrintOutItems

'печатаем на лист массив со значениями
ShMapping.Range("N1:N" & ItemList.Count) = PrintOutItems

=Таблица2[фрукты]

=суммпроизв(суммеслимн(диапазон суммирования; диапазон критериев; критерий (в виде именнованного диапазона)))

    Dim Table()
    Dim Revised()
    Dim lLastRow  As Long, i As Long, g As Long
        
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Table = Range("A1:I" & lLastRow).Value
    
    For i = 1 To lLastRow
    If Table(i, 8 )<> 0 Then
    For g = 1 To lLastRow
    Revised(g) = Table(i)
    Next g
    End If
    Next i

Sub Тест()
Dim Data()
Dim Result()
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Data = Range("A1:A" & lLastRow)
    
    ReDim Result(1 To lLastRow)
For i = 1 To lLastRow
Result(i) = DatePart("ww", DateValue(Data(i)))
Next i
      End Sub

Dim Qty() As Variant
Dim Price() As Variant
Dim Total() As Variant

     
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

ReDim Qty(1 To lLastRow)
ReDim Price(1 To lLastRow)
ReDim Total(1 To lLastRow)



For i = 2 To lLastRow
Qty(i) = Cells(i, 1)
Next i

For j = 2 To lLastRow
Price(j) = Cells(j, 2)
Next j


For h = 2 To lLastRow
For i = 2 To lLastRow
For j = 2 To lLastRow

Total(h) = Qty(i) * Price(j)

Next j
Next i
Next h

For g = 2 To lLastRow
For h = 2 To lLastRow
Cells(g, 4) = Total(h)
Next h
Next g

Sub Макрос8()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Application.WorksheetFunction.CountIf(Range("Мебель"), Cells(i, 1)) > 0 Then Cells(i, 1) = 1

Next i
End Sub