Perhaps just

    Range("BaseRow").Copy ActiveCell.Cells(2, 1)
    ActiveCell.Cells(3, 1).EntireRow.Insert