Sub for1()
    Range("M20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-12],10,3)=""Íàç"",MID(RC[-12],168,17),"""")"
    Range("M20").Select
    Selection.Copy
    Columns("M:M").Select
    ActiveSheet.Paste
    
    Range("O20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]="""","""",LOOKUP(99^99,--LEFT(MID(RC[-2],MIN(FIND({0,1,2,3,4,5,6,7,8,9},RC[-2]&""0123456789"")),15),{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15})))"
    Range("O20").Select
    Selection.Copy
    Columns("O:O").Select
    ActiveSheet.Paste
    
    Range("Q20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]*7.5%/130)"
    Range("Q20").Select
    Selection.Copy
    Columns("Q:Q").Select
    ActiveSheet.Paste
    
    Range("S20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-18],10,3)=""Íàç"",LEFT(RC[-18],508),"""")"
    Range("S20").Select
    Selection.Copy
    Columns("S:S").Select
    ActiveSheet.Paste
    


    Range("X20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",INT(RC[-7]))"
    Range("X20").Select
    Selection.Copy
    Columns("X:X").Select
    ActiveSheet.Paste

    Range("Z20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""","" ðóá. "")"
    Range("Z20").Select
    Selection.Copy
    Columns("Z:Z").Select
    ActiveSheet.Paste
    
    Range("AB20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-11]="""","""",ROUND((RC[-11]-RC[-4])*100,))"
    Range("AB20").Select
    Selection.Copy
    Columns("AB:AB").Select
    ActiveSheet.Paste
    
    
    Range("AD20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-29],10,3)=""Íàç"",RIGHT(RC[-29],1145),"""")"
    Range("AD20").Select
    Selection.Copy
    Columns("AD:AD").Select
    ActiveSheet.Paste
    
    Range("AF20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",CONCATENATE(RC[-13],RC[-8],RC[-6],RC[-4],RC[-2]))"
    Range("AF20").Select
    Selection.Copy
    Columns("AF:AF").Select
    ActiveSheet.Paste
    Columns("AF:AF").Select
    
    Columns("AF:AF").Select
    Columns("AF:AF").Copy
    Columns("AH:AH").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Columns("M:AG").Select
    Range("AG1").Activate
    Selection.Delete Shift:=xlToLeft
    
    Columns("M:M").Select
    With Selection
        .HorizontalAlignment = xlFill
        .VerticalAlignment = xlDistributed
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    

    
End Sub