ReDim array_values(aheight)
Do Until count = aheight
'repopulate the first cell
If IsNumeric(array_fields(count_2 + 1)) Then
strQuote = vbNullString
Else
strQuote = "'"
End If
cell = strQuote & esc(array_fields(count_2)) & strQuote
'Populate the cell...