Sub MyTest()
    Dim fStream             As ADODB.Stream
    Dim html                As HTMLDocument
    Dim hTables             As Object
    Dim a                   As Variant
    Dim startTableNumber    As Long
    Dim i                   As Long
    Dim r                   As Long
    Dim c                   As Long
    Dim counter             As Long
    Dim endTableNumber      As Long
    Dim numColumns          As Long

    Application.ScreenUpdating = False
        ActiveSheet.Cells.ClearContents

        Set html = New HTMLDocument
        Set fStream = New ADODB.Stream
        With fStream
            .Charset = "UTF-8"
            .Open
            .LoadFromFile Environ("USERPROFILE") & "\Desktop\LocalHTML.html"
            html.body.innerHTML = .ReadText
            .Close
        End With


        Set hTables = html.getElementById("ctl00_ContentPlaceHolder1_CrystalReportViewer1")
       ' MsgBox hTables.getElementsByTagName("tr").Length - 1

        startTableNumber = 43
        endTableNumber = hTables.getElementsByTagName("tr").Length - 1
        numColumns = 9


        Set hTables = hTables.getElementsByTagName("table")
        r = 2: c = 1

        For i = startTableNumber To endTableNumber Step 2
            counter = counter + 1
            If counter = 10 Then
                c = 1: r = r + 1: counter = 1
            End If
            Cells(r, c) = Application.Trim(hTables(i).innerText)
            c = c + 1
        Next i

'        a = Range("A2").CurrentRegion.Value
'        a = Application.Index(a, Evaluate("ROW(1:" & UBound(a, 1) & ")"), [{9,8,7,6,5,4,3,2,1}])
'        For i = LBound(a) To UBound(a)
'            a(i, 2) = CDate(a(i, 2))
'        Next i
'        Range("A1").Resize(1, 9).Value = Array("رقم الطلب", "تاريخ الطلب", "كود الطالب", "اسم الطالب", "الرقم القومي", "مديرية", "إدارة", "مدرسة", "حالة الطلب")
'        Range("A2").Resize(UBound(a, 1), UBound(a, 2)).Value = a
    Application.ScreenUpdating = True
End Sub