Макросы вставки строки снизу в таблице Excel

Sub Insert_Rows2()
If Selection.Rows.Count > 1 Then Exit Sub
r_ = Selection.Row
    Rows(r_).Insert Shift:=xlDown
    Sheets("Ïîèñê").Rows("6:7").Copy Range("A" & r_)
        Application.CutCopyMode = False
End Sub

Sub Insert_Rows2()
If Selection.Rows.Count > 1 Then Exit Sub
r_ = Selection.Row
Rows(r_).Insert Shift:=xlDown
Sheets("лист1").Rows("6:7").Copy Range("A" & r_)
Application.CutCopyMode = False
End Sub

[A2].End(xlDown)(2)

Sub Insert_Rows2()
    Sheets(1).Rows("6:7").Copy [A2].End(xlDown)(2)
    Application.CutCopyMode = False
End Sub

Sub Строка()
'вставить строку
    Dim strInput As String, i As Long, iR, iBox, Message, Title, Default
        Message = "Укажите желаемое колличество строк!"
        Title = "Вставка сток в лист " & Chr(171) & ActiveSheet.Name & Chr(187)
        Default = "1"
N:      iBox = InputBox(Message, Title, Default)
    Select Case iBox
        Case "": Exit Sub
        Case Is > 0: On Error GoTo errN
            For i = 1 To iBox
                iR = Range("A2").End(xlDown).Row
                Rows(iR & ":" & iR).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Cells(iR, 1) = Cells(iR - 1, 1) + 1
            Next i
        Case Else
errN:       If MsgBox("Вы ввели не коректные данные!", vbRetryCancel + 64, Title) = vbRetry Then GoTo N
    End Select
End Sub

Sub tt()
    Dim L
    L = Range("A12").End(xlDown).Row
    Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(L, 1) = Cells(L - 1, 1) + 1
    Cells(L, 1).Borders.Weight = xlThin
End Sub

Dim L
    L = Range("A12").End(xlDown).Row + 1
    Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(L, 1) = Cells(L - 1, 1) + 1
    Cells(L, 1).Borders.Weight = xlThin

Cells(L - 1, 1) + 1

l = Range("A12").End(xlDown).Row

Cells(l, 1) = Cells(l - 1, 1) + 1