Trying to take input for rows from user

[siddo]

Private Sub CommandButton1_Click()

a = InputBox("Enter the Row", "Excel VBA Says", "Please enter data")
    Rows("a").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("L8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Rows("a" + 1).Select
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    
End Sub

Im getting an error at Rows("a") .Select section can someone help

 

[Fluff]

You need to remove the quotes from around the a, so it's just Rows(a)

 

[Misca]

Try something like:

Dim a As Integer

a = Application.InputBox("Enter the Row", "Excel VBA Says", "Please enter data", Type:=1)
    Rows(a).Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("L8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Rows(a + 1).Select
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1

 

[siddo]

You need to remove the quotes from around the a, so it's just Rows(a)

A quick question instead of rows can I identify the rows using the S.No column I have written C1,C2 like this in my serial number column so instead of putting a row can I include C1 and C2