'удаляем слово ИТОГ АРТИКУЛ и 3 строки ниже во второй колонне
 Set Sheet = ActiveSheet 
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(2) Like "Итог Артикул" Then Row.Resize(4).Clear
Next

Dim shs As Object, rs As Range
    Application.ScreenUpdating = False
    For Each shs In Worksheets
        With shs
            Set rs = .Columns(4).Find("Итог")
            If Not rs Is Nothing Then
                .Columns(rs.Column).Resize(, 1).Copy .Range("Q1")
                .Columns(rs.Column).Resize(, 1).Delete Shift:=xlToLeft
            End If
        End With
    Next
    Application.ScreenUpdating = True

 Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(1) Like "итог" Then Row.Resize(1).Delete
Next

Dim rFndRng As Range, lr As Long, asFnd, li As Long
asFnd = Array("Индексация выручки по размеру")
'отключаем обновление экрана - для ускорения выполнения
Application.ScreenUpdating = 0
For lr = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1 To 1 Step -1
For li = LBound(asFnd) To UBound(asFnd)
Set rFndRng = Rows(lr).Find(asFnd(li), , xlValues, xlWhole)
If Not rFndRng Is Nothing Then Rows(lr).Delete: Exit For
Next li
Next lr
'возвращаем обновление экрана
Application.ScreenUpdating = 1

Dim LastRow As Long, LastColumn As Long, iCol As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
iCol = 42
    For i = 1 To LastRow
        If Cells(i, 3) <> "" Then
            If Cells(i, 3).Font.Bold = True Then
                LastColumn = Cells(i, Columns.Count).End(xlToLeft).Column
                Range(Cells(i, 3), Cells(i, LastColumn)).Copy Cells(i, 16)
            End If
        End If
    Next

For Each c In ActiveSheet.UsedRange
If c.Errors.Item(xlNumberAsText).Value = True Then
c.Value = c.Value * 1
End If
Next

{=СУММ(ЕСЛИ(L1:L28>0;K1:K28-L1:L28);0)} работает  

{=СУММ(ЕСЛИ(И(L1:L28>0;K1:K28>0)K1:K28-L1:L28);0)} не работает

ActiveSheet.Move after:=Workbooks("Test.xls").Sheets(Sheets.Count) 

Columns("L:N").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
"продажи!R1C12:R1048576C14", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="продажи!R1C27", TableName:= _
"Сводная таблица17", DefaultVersion:=xlPivotTableVersion14 
Sheets("продажи").Select 
Cells(1, 27).Select 
With ActiveSheet.PivotTables("Сводная таблица17") 
    .PivotFields("арт")  
    .Orientation = xlRowField .Position = 1 
End With 
ActiveSheet.PivotTables("Сводная таблица17").AddDataField ActiveSheet. _ 
PivotTables("Сводная таблица17").PivotFields("сумма") , "Количество из сумма", _ 
xlCount 
ActiveSheet.PivotTables("Сводная таблица17").AddDataField ActiveSheet. _ 
PivotTables("Сводная таблица17").PivotFields("сумма") , "Количество из сумма2", _ 
xlCount 
ActiveSheet.PivotTables("Сводная таблица17").AddDataField ActiveSheet. _ 
PivotTables("Сводная таблица17").PivotFields("Итого") , "Количество из Итого", _ 
xlCount ActiveSheet.PivotTables("Сводная таблица17").AddDataField ActiveSheet. _ 
PivotTables("Сводная таблица17").PivotFields("Итого") , "Количество из Итого2", _ 
xlCount