Sub Макрос1()
Application.ScreenUpdating = False
    ChDir "C:\Documents and Settings\PCV2\Рабочий стол"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\PCV2\Рабочий стол\sz0.txt", Origin:=1251, _
        StartRow:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(21 _
        , 1), Array(29, 1), Array(38, 1), Array(46, 9), Array(52, 9), Array(59, 9), Array(63, 9), _
        Array(84, 9)), TrailingMinusNumbers:=True

    Windows("Книга1.xls").Activate
    Windows("sz0.txt").Activate
    Sheets("sz0").Select
    Sheets("sz0").Move After:=Workbooks("Книга1.xls").Sheets(1)
    Range("A1,B1,C1,D1").Select
    Selection.Font.Bold = True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select

    While Not Columns(1).Find("ПЛИТА*") Is Nothing
    Rows(Columns(1).Find("ПЛИТА*").Row).Delete Shift:=xlUp
    Wend

    While Not Columns(1).Find("БЕЗ*") Is Nothing
    Rows(Columns(1).Find("БЕЗ*").Row).Delete Shift:=xlUp
    Wend

    While Not Columns(1).Find("ПКП*") Is Nothing
    Rows(Columns(1).Find("ПКП*").Row).Delete Shift:=xlUp
    Wend
    
    While Not Columns(1).Find("РЕШЕТКА*") Is Nothing
    Rows(Columns(1).Find("РЕШЕТКА*").Row).Delete Shift:=xlUp
    Wend

    While Not Columns(1).Find("СЕТКА*") Is Nothing
    Rows(Columns(1).Find("СЕТКА*").Row).Delete Shift:=xlUp
    Wend
    
    Sheets("Лист1").Select

Application.ScreenUpdating = True
End Sub