请版主帮我修改数据更新代码

Private Sub CommandButton1_Click()
    Range("a4:h65536").ClearContents
    Dim i, j, Arr
    Dim s() As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://www.17500.cn/getData/3d.TXT", False
        .Send
        s = Split(.responseText, Chr(10))
    End With
    List = Array(0, 2, 3, 4, 5, 6, 7)
    ReDim Arr(1 To UBound(s), 1 To 8)
    Range("D1") = UBound(s)
    For i = UBound(s) - Range("C1") To UBound(s) - 1
        For j = 1 To 7
            Arr(i - UBound(s) + Range("C1") + 1, j) = Split(s(i), " ")(List(j - 1))
        Next j
    Next i
    With Cells(4, 1).Resize(UBound(s), 7)
'        .ClearContents
        .Value = Arr
    End With
   
    zh = Range("A65536").End(xlUp).Row
    ActiveWindow.ScrollRow = zh - ActiveWindow.VisibleRange.Rows.Count + 3
   Range("A3").Select
   
End Sub
Private Sub CommandButton2_Click()
    zh = Range("A65536").End(xlUp).Row
    ActiveWindow.ScrollRow = zh - ActiveWindow.VisibleRange.Rows.Count + 3
    Range("A3").Select


End Sub

我改过多次都不行，恳请版主帮我修改下，谢谢！