Sub SummAver()
Range(“D1:D101″).Select
Range(“D101″).Activate
ActiveCell.FormulaR1C1 = “=SUM(R[-100]C:R[-1]C)”
Range(“E1:E101″).Select
Range(“E101″).Activate
ActiveCell.FormulaR1C1 = “=AVERAGE(R[-100]C:R[-1]C)”
ActiveWindow.SmallScroll Down:=18
Range(“D101″).Select
End Sub 

Sub SummAver()

Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
Sheets(wsheet.Name).Select

Range(“D1:D101″).Select
Range(“D101″).Activate
ActiveCell.FormulaR1C1 = “=SUM(R[-100]C:R[-1]C)”
Range(“E1:E101″).Select
Range(“E101″).Activate
ActiveCell.FormulaR1C1 = “=AVERAGE(R[-100]C:R[-1]C)”
ActiveWindow.SmallScroll Down:=18
Range(“D101″).Select

Next wsheet

End Sub

Sub SummAver()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets


    ... текстовка моего макроса


    Next
End Sub

Sub delete()

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets

    Rows("1:7").Select
    Selection.delete Shift:=xlUp

    Dim aaa As Range
    Dim bbb As Range
    Application.ScreenUpaaating = False
    Txt1 = "Яблоки"
    Txt2 = "Груши"
    For Each aaa In ActiveSheet.UsedRange.Rows
        
        If Not aaa.Find(Txt1, , xlValues, xlPart) Is Nothing Then
            If bbb Is Nothing Then Set bbb = aaa Else Set bbb = Union(bbb, aaa)
        End If
        
        If Not aaa.Find(Txt2, , xlValues, xlPart) Is Nothing Then
            If bbb Is Nothing Then Set bbb = aaa Else Set bbb = Union(bbb, aaa)
        End If
   
    Next
    If Not bbb Is Nothing Then bbb.EntireRow.delete
    End

Next
End Sub