This should do it:
Option Explicit
Private Const ROW_FIRST As Integer = 1
Private Const ROW_LAST As Integer = 100
Private Sub DoStuff()
Dim iRow As Integer, iRowsAdded As Integer, iSemicolons As Integer, i As Integer, j As Integer
Dim sCell(1 To 7) As String
iRow = ROW_FIRST...