Sub Статья()

SName = InputBox("Укажите имя статьи", "Имя столбца", "")
If ActiveCell.Row < 9 Then
        MsgBox "Укажите крайнюю статью необходимого подраздела"
    Else
    With ActiveCell.EntireRow
            .Insert
            .Copy .Rows(0)
            .ClearContents
            .FormulaR1C1 = SName
        End With
    End If
End Sub