HTML conversion

[Biased Historian]

I have brought this problem up in the past but found it difficult to explain. I have a new approach on it after studying it and felt it best to start a new thread.

I have found a starting and ending point that I am hoping will incorporate itemized lists into a converted html report.

Here is the current coding that I use and it works great until encountering itemized lists;

Dim a, b, i As Long, k As Long, n As Long, j As Long, zctrl As Integer, Lrow As Long, istop As Long
Application.ScreenUpdating = False
On Error Resume Next
    Do
        ActiveSheet.Rows.Find("SUB-OFFICE:", , , xlPart).Delete
    Loop Until Err.Number <> 0
On Error GoTo 0: Err.Number = 0: j = 1
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
a = Range([a1], Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Value
ReDim b(1 To UBound(a), 1 To 13)
For i = 1 To UBound(a)
    If Split(Trim(a(i, 1)), ":")(0) = "CASE NO" Then
        On Error Resume Next
        istop = ActiveSheet.Range(Cells(i, 1), Cells(Lrow, 1)).Find("CASE NO TOTAL", , , xlPart).Row - 4
            If Err.Number <> 0 Then Exit For
        k = i: zctrl = -1
        Do
            n = n + 1
            b(j, n) = a(k, 1): k = k + 1
            If n + zctrl = 12 And k <> istop Then j = j + 1: n = 1
        Loop Until k = istop + 1 Or k = UBound(a)
        j = j + 1: n = 0
    End If
Next
On Error GoTo 0
Sheets(2).Activate: Range([a1], Cells(j, UBound(b, 2))) = b
[a:l].EntireColumn.AutoFit

Note this code was given to me and my understanding of it is limited at best.

I have attached a workbook, which contains a replica of the report, including itemized lists.

I found that the cell APPRAISEL DATE: always proceeds each itemized lists and that is the only time it will appear in the report. The other constant is that at the end of each itemized list is a cell with "N" in it. This is found three rows below the end of each itemized list. I marked them in red to stand out.

My hope is that someone can use those two constants to convert the itemized lists from column A to the appropriate columns, which I showed in the workbook.

Please let me know if there is anything further that I can do to in getting the above coding modified to incorporate itemized lists.


Thanks,

Dave