Modify Code to Add Line Below Instead of above

[bamaisgreat]

I have the code below that adds a line above the active A cell. Is there a way to change this so it adds the line below the active A cell?

Sub insertRevBetween()
ActiveSheet.Unprotect
   Dim iCountRows As Integer
   Dim Rng As Range
   
   iCountRows = 1
   
   'Error Handling
   If iCountRows <= 0 Then Exit Sub
   
   If ActiveCell.Row < 9 Then
      MsgBox "You Cannot Insert Rows Before Line 9!"
      Exit Sub
   End If
   
   Set Rng = Range("A" & ActiveCell.Row)
   Rng.Resize(iCountRows, 37).EntireRow.Insert
   Set Rng = Range("A" & Rng.Row - iCountRows).Resize(iCountRows, 37)
   With Rng
      .Borders.Weight = xlThin
      '.Borders(xlEdgeBottom).Weight = xlMedium
      .Borders(xlEdgeRight).Weight = xlMedium
      .Borders(xlEdgeLeft).Weight = xlMedium
      '.Borders(xlEdgeTop).Weight = xlThin
   End With
          
   Range("B" & ActiveCell.Row - 1).Select
   ActiveCell.Copy
   Range("B" & ActiveCell.Row + 1).Select
   ActiveCell.PasteSpecial xlPasteValues
       
   Range("Ai" & ActiveCell.Row - 1).Copy
   Range("Ai" & ActiveCell.Row).PasteSpecial Paste:=xlPasteFormulas
   Range("B" & ActiveCell.Row).Select
       
ActiveSheet.Protect
     
End Sub

 

[Logit]

.
This inserts new row down one :

Option Explicit


Sub AddRow()
    Dim ws As Worksheet
    Dim rng As Range


    '~~> Set this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")        '<-- NOTE: Insert Sheet name here.


    With ws
        '~~> Set your range
        Set rng = .Rows(ActiveCell.Row)


        '~~> Copy the range
        'rng.Copy                               '<--  NOTE: Copies content of row the cursor is in and pastes to the new row


        '~~> Insert the range
        rng.Offset(1).Insert Shift:=xlDown       '<--  NOTE: Change Offset to (1) & xlDown for new row down.
                                                '<--  Note: Change Offset to (0) & xlUp for new row up.
        '~~> Clear the clipboard. More importantly remove the
        '~~> ant like borders
        Application.CutCopyMode = False
    End With
End Sub