Массив листа не заполняется всеми данными из XML

[eXtremer]

Добрый день,

Мы, используем код VBA для импорта XML-файлов для заполнения массива листа. Все было хорошо до сих пор, когда в XML появилось больше данных. Например XML имеет 3512 строк, но массив создается только с 3215 строк, не хочет больше расти. Я не кодер и человек который сделал нам этот код вне досягаемости. Я был бы очень признателен, если кто-то смог помочь решить эту проблему. Код и пару скринов чуть ниже, спасибо заранее.

Код Sheet 1 (Work):

Код Выделить Развернуть


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Valida").Offset(columnOffset:=-1) = "`" Then Show_All: Exit Sub
If Target.Address = Range("valida").Address Then
    With Worksheets("XML")
        Set c = .ListObjects("List4").Range.Find(Target.Validation.Parent, LookIn:=xlValues)
        If Not c Is Nothing Then
            ActiveSheet.AutoFilter.Range.AutoFilter Field:=17, Criteria1:=c.Offset(columnOffset:=-1).Value
            Range("sb_total").Calculate
            ActiveSheet.AutoFilter.Range.Offset(2, 0).Resize(rowSize:=ActiveSheet.AutoFilter.Range.Rows.Count + 11, ColumnSize:=13).Select
        End If
    End With
Else
End If
End Sub

Sub Show_All()
    If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
    Range("sb_total").Calculate
    End If
End Sub

Код Module impAM:

Код слишком длинный так что я его выложил здесь: http://justpaste.it/m7ip







P.S.: Код был предусмотрен для версий Excel 2003

[eXtremer]

Может кто помочь?