Сортировка данных по листам в Excel - VB

Формулировка задачи:

есть код VBA:

Кнопка12_Click()
 EA  
 EA = CreateObject()
EA.WorkBooks.OpenText FileName:=, Origin:=, StartRow _
        :=, DataType:=, TextQualifier:=, _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array(, ), Array(, ), Array _
        (, ))

 iRow  
 iClm  
 a  
 ranger  
 x  
 ActiveSheet.UsedRange
     iRow = .Row + .Rows.Count - 
     iClm = .Column + .Columns.Count - 
 
Sheets(Sheets.Count).
    Sheets.Add
 a =   iRow
ranger = a &  & a
 (Cells(a, ), , ) =  
Range(ranger).Copy
Worksheets().Activate
 ActiveSheet.UsedRange
     iRow = .Row + .Rows.Count - 
     iClm = .Column + .Columns.Count - 
 
Sheets(Sheets.Count).Delet
Cells(iRow + , ).Paste
Worksheets().Activate
 
 a

EA.Visible = True
 EA = 

 

вроде как должен создовать новый excel, запиховать туда текстовик,распределять по ячейкам и искать в первом стоблце на 4 месте "55". и если находит, то копировать это строку на другой лист. Иногда жалуется на строку "With ActiveSheet.UsedRange", а иногда ни чего не пишет а просто октрывает книгу, но ничего не сортирует.
помогите, объясните в чем косяк и как этого в след раз избежать.

Решение задачи: «Сортировка данных по листам в Excel»

textual
                            Листинг программы 
                        
                            Sheets(Sheets.Count).<font color="blue">Select</font>