Private Sub Кнопка12_Click()
Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.OpenText FileName:="F:\on123.txt", Origin:= 1 , StartRow _
        := 1 , DataType:= 1 , TextQualifier:= 1 , _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 ))

Dim iRow As Integer
Dim iClm As Integer
Dim a As Integer
Dim ranger As String
Dim x As Integer
With ActiveSheet.UsedRange
     iRow = .Row + .Rows.Count -  1 
     iClm = .Column + .Columns.Count -  1 
End With
Sheets(Sheets.Count).Select
    Sheets.Add
For a =  1  To iRow
ranger = a & ":" & a
If Mid(Cells(a,  1 ),  4 ,  2 ) = "55" Then
Range(ranger).Copy
Worksheets("лист1").Activate
With ActiveSheet.UsedRange
     iRow = .Row + .Rows.Count -  1 
     iClm = .Column + .Columns.Count -  1 
End With
Sheets(Sheets.Count).Delet
Cells(iRow +  1 ,  1 ).Paste
Worksheets("on123").Activate
End If
Next a

EA.Visible = True
Set EA = Nothing

End Sub