Percorre a fatura do ML procurando por roubos

ml.parse.vb

Sub getTheRabit()
Dim i As Integer, j As Integer, k As Integer
Dim cuDate As String, newDate As String
Dim temp As String

With Worksheets("Report")
    i = 16
    Do Until .Cells(i, 2).Value = ""
        k = 16
        cuDate = .Cells(i, 2).Value
        Do Until .Cells(k, 2).Value = ""
            newDate = .Cells(k, 2).Value
            If cuDate = newDate And .Cells(i, 8).Value = -.Cells(k, 8).Value Then
                .Cells(k, 9).Value = "OK"
                .Cells(i, 9).Value = "OK"
                Exit Do
            End If
            k = k + 1
        Loop
        i = i + 1
    Loop
End With
End Sub