This code adds the value QUAR 8 cells at a time. It does 6 rows and then moves to the right 8 columns and so on. On each cell that meets the criteria the cell is given a number from 100 to 106. If there are more than 6 cells it puts the value QRXX in the remaining cells.

I have it working and moving correctly but when it moves over the 8 columns the array thinks it has already been satisfied so it starts placing QAXX everywhere.

Every time the code moves over 8 columns at atime the Array should start over with 100.

I'm close but can't get it.

Dim arr(100 To 152) As String
Dim arr1, num
Dim rng As Range, cell As Range
Dim i As Long, j As Long
Dim k As Long
Dim x As Long
arr1 = Array(101, 102, 103, 104, 105, 106)
arr2 = Array(101, 102)
Dim cells As Range

With ActiveSheet

For i = 11 To 298 'was 11 TO 100
For x = 7 To 96
For Each cell In Rows(i).Columns(x)
Set rng = Nothing
If cell.Value = "QUAR" Then
Set rng = cell
Exit For
End If
x = x + 7
Next

If Not rng Is Nothing Then
For j = LBound(arr1) To UBound(arr1)
num = ""
If Len(Trim(arr(arr1(j)))) = 0 Then
num = arr1(j)
arr(num) = "QUAR"
Exit For
End If
Next

If num = "" Then num = "XX"
For Each cell In Range(rng, .cells(rng.Row, "AL"))
If cell.Value = "QUAR" Then
cell.Value = "QR" & num
End If
Next
End If
Next

Next