Insert multiple rows above a certain text

I am using the following code as part of a larger macro to insert a row at certain places. I am trying to add another command to add 6 rows above the text "sum total" in column A. Can I just add a condition to this or can I copy this routine again and change the number of rows to be inserted?

Dim Col As Variant
Dim BlankRows As Long
Dim LastRow As Long
Dim R As Long
Dim StartRow As Long

Col = "A"
StartRow = 1
BlankRows = 1

LastRow = Cells(Rows.Count, Col).End(xlUp).Row

Application.ScreenUpdating = False

With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) = "CC Total" Or .Cells(R, Col) = "Sum Total" Then
.Cells(R + 1, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True