Макрос для сдвига xls таблицы на несколько ячеек ниже

Option Explicit
 
Sub Макрос1()
 
    Sheets("Челябинск").Select
    Sheets.Add
    Range("A1:AG4").Select
    Selection.Copy
    Sheets("Челябинск").Select
    Selection.Insert Shift:=xlDown
    Sheets("Лист1").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Range("A1").Select
End Sub

Sub Макрос1()
    Worksheets("Челябинск").Rows("1:4").Insert Shift:=xlDown
End Sub

Sub Макрос2()
    Worksheets("Челябинск").Rows(1).Resize(4).Insert Shift:=xlDown
End Sub

Sub Макрос1()
    
    If Range("A1") = "Аналог" Then
        Worksheets("Челябинск").Rows("1:4").Insert Shift:=xlDown
                          
    End If
    
    
    Dim Dist(), Vol(), Mass(), Price(), i&, outfile As Object
        
        Dist = Range("Z5").CurrentRegion.Columns("Z:Z").Value 'Распределение
        Vol = Range("H5").CurrentRegion.Columns("H:H").Value 'Объем
        Mass = Range("I5").CurrentRegion.Columns("I:I").Value 'Масса
        Price = Range("L5").CurrentRegion.Columns("L:L").Value 'Цена
        
        ReDim a(1 To UBound(Dist) - 1, 1 To 1)
        ReDim b(1 To UBound(Dist) - 1, 1 To 1)
        ReDim c(1 To UBound(Dist) - 1, 1 To 1)
            
            
        For i = 1 To UBound(a) - 1
            a(i, 1) = Dist(i + 1, 1) * Vol(i + 1, 1)
            b(i, 1) = Dist(i + 1, 1) * Mass(i + 1, 1)
            c(i, 1) = Dist(i + 1, 1) * Price(i + 1, 1)
        Next
           
        ActiveSheet.Range("B1") = "Общий объем"
        ActiveSheet.Range("B2") = "Общая масса"
        ActiveSheet.Range("B3") = "Общая цена"
        
        ActiveSheet.Range("С1") = Round(Application.WorksheetFunction.Sum(a), 2)
        ActiveSheet.Range("C2") = Round(Application.WorksheetFunction.Sum(b), 2)
        ActiveSheet.Range("C3") = Round(Application.WorksheetFunction.Sum(c), 2)
        
        'MsgBox Round(Application.WorksheetFunction.Sum(c), 2)
        
    
End Sub