I am preparing an excel sheet which my client wants to use it as a template for exporting his questions. The default question related items are

<M> - Question Format (plain/html)
<T> - Question Type
<Q> - Question
<C> - Question Choice 1
<C> - Question Chouce 2
<C+> Correct Choice (Either chice 1 or choice 2)

Client can add another choice <C> if required. I need a button to add another chouce before <C+>.

I require a add question button that adds another question immediately after the <C+> tag of previous question. The <C+> choice will be the last tag in any question, so I want the next question to be continued in the next row of this <C+> tag.

I do not have the code for add new choices.
The add question button code is
---
Sub Button8_Click()
Const firstRow As Integer = 4

Dim intStep As Integer
Dim lngRow As Long
Dim maxRow As Long

maxRow = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row ' The last row you pasted
'MsgBox maxRow
'------------------------------------------------'
' Figure out how many original items we have '
'------------------------------------------------'
intStep = 0
For lngRow = (firstRow + 1) To ActiveSheet.Rows.Count
intStep = intStep + 1
If Cells(lngRow, 1).Value = Cells(firstRow, 1).Value Or Cells(lngRow, 1).Value = "" Then
Exit For
End If
Next lngRow
'------------------------------------------------'
' Copy the original items. '
'------------------------------------------------'
Range(Cells(firstRow, 1), Cells(firstRow + intStep - 1, 2)).Select
Selection.Copy
'------------------------------------------------'
' Paste them in the next blank section '
'------------------------------------------------'
For lngRow = 4 To ActiveSheet.Rows.Count Step intStep
If lngRow > maxRow Then
Cells(lngRow, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Exit For
End If
Next lngRow

End Sub
--------

I am a newbie to VBA and I got this code as assistance from another guru.

Any help?