Sub VS()
Dim rng As Range
Dim i As Integer
Dim a As Integer
Dim y As Integer
Dim z As Integer

    Set rng = Selection
        If Selection.Cells.Count < 256 Then
            MsgBox "Не выделена строка!"
        Else
            i = rng.Rows.Count
            y = rng.Rows(1).Row
            z = rng.Rows(i).Row
                For a = z To y Step -1
                    Rows(a).Copy
                    Rows(a + 1).Select
                    Selection.Insert Shift:=xlDown
                Next a
        End If
End Sub

Sub Macro1()
Dim i As Long, StartRow As Long, FinishRow As Long
    StartRow = Selection.Row
    FinishRow = Selection.Row + Selection.Rows.Count - 1
    For i = FinishRow To StartRow Step -1
        Rows(i + 1).Resize(1).Insert
        Rows(i).Copy Cells(i + 1, 1)
    Next
End Sub

Sub Macro1()
Dim i As Long, StartRow As Long, FinishRow As Long
    StartRow = Selection.Row
    FinishRow = Selection.Row + Selection.Rows.Count - 1
    For i = FinishRow To StartRow Step -1
        Rows(i + 1).Resize(1).Insert
        Rows(i).Copy Cells(i + 1, 1)
        Cells(i, 3).Value = "*" ' добавить
        Cells(i + 1, 3).Value = "/" ' добавить
    Next
End Sub