Sub Скругленныйпрямоугольник1_Щелчок()
With ActiveSheet
    ilr = .Cells(20, 3).End(xlDown).Row
    irows = ilr - 19
    Set rMaterial = .Range(Cells(20, 3), Cells(ilr, 4))
    Set rArtikul = .Range(Cells(20, 6), Cells(ilr, 6))
    Set rFact = .Range(Cells(20, 9), Cells(ilr, 9))
End With
Sheets(2).Activate
With ActiveSheet
    ir1 = .Cells.Find(What:="Наименование материала", After:=ActiveCell, LookIn:= _
            xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
            xlNext, MatchCase:=False, SearchFormat:=False).Row + 2
            
    ir2 = .Cells.Find(What:="бочки п/эт", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Row - 2
    If ir2 > ir1 Then .Rows(ir1 & ":" & ir2).Delete (xlUp)
        For x = 0 To irows - 1
        .Rows(ir1 + x).Insert xlShiftDown
        Next x
    rArtikul.Copy
   .Cells(ir1, 1).Select
  .Paste
  rMaterial.Copy
  .Cells(ir1, 2).Select
  .Paste
  rFact.Copy
  .Cells(ir1, 5).Select
  .Paste
End With
End Sub

Sub Скругленныйпрямоугольник1_Щелчок()
'Sheets(1).Activate '(если раскомментировать то работает с Листа2, но при выполнении макроса "моргает" переключением листов)
With ActiveSheet   '(Вопрос: почему если вместо ActiveSheet вставить просто ThisWorkbook.Sheets(1) не работает с Листа2? пишет ошибку в строке Set rMaterial = .Ra...)
    ilr = .Cells(20, 3).End(xlDown).Row
    irows = ilr - 19
    Set rMaterial = .Range(Cells(20, 3), Cells(ilr, 4))
    Set rArtikul = .Range(Cells(20, 6), Cells(ilr, 6))
    Set rFact = .Range(Cells(20, 9), Cells(ilr, 9))
End With

Sub tt()
    Application.ScreenUpdating = 0
    With Sheets("Лист1")
        r10_ = 20
        r11_ = .Range("I" & Rows.Count).End(xlUp).Row
        If r11_ < r10_ Then
            Exit Sub
        Else
            n_ = r11_ - r10_ + 1
        End If
    End With
    With Sheets("Лист2")
        r20_ = 14
        r21_ = .Range("E" & Rows.Count).End(xlUp).Row
        If r21_ >= r20_ Then
            .Rows(r20_ & ":" & r21_).Delete
        Else
            r21_ = r20_
        End If
        .Rows(r20_ & ":" & r20_ + n_ - 1).Insert
        Sheets("Лист1").Range("C" & r10_).Resize(n_, 2).Copy .Range("B" & r20_)
        Sheets("Лист1").Range("F" & r10_).Resize(n_).Copy .Range("A" & r20_)
        Sheets("Лист1").Range("I" & r10_).Resize(n_).Copy .Range("E" & r20_)
    End With
    Application.ScreenUpdating = 1
End Sub