Option Explicit
Const sResourcePrefix As String = "RES_"

Sub Не_Навижу_Do_Loop()
    Dim Sh As Worksheet, count&
    Set Sh = Worksheets("Лист5")
    Set ShOut = Worksheets("Лист1")
    dx = Sh.UsedRange
    count = 0
    For i = 1 To UBound(dx)
        For c = 1 To UBound(dx, 2)
            If dx(i, c) <> "" Then
                If dx(i, c) <> 0 Then
                    count = count + 1
                    ShOut.Cells(count, 1) = dx(i, c)
                End If
            End If
        Next
    Next
End Sub

= КОРЕНЬ(J7+J8)-(L2/K2+K2/L2)*G2

 Debug.Print .responseText

   Set objNode = xmlDoc.SelectSingleNode("//place")
   lat = objNode.Attributes.getNamedItem("lat").Text
   lon = objNode.Attributes.getNamedItem("lon").Text