Attribute VB_Name = "uprav_sloupce"
Sub uprav_sloupce()
    Range("aa1").Select
    Selection.EntireColumn.Delete
    Range("j1").Select
    Selection.EntireColumn.Delete
    Range("i1").Select
    Selection.EntireColumn.Delete
    Range("b1").Select
    Selection.EntireColumn.Insert
    Set r = Range("a1")
    r.Offset(0, 0) = "svislice"
    r.Offset(0, 1) = "x"
    r.Offset(0, 7) = "N"
    r.Offset(0, 8) = "v0"
    Range("a1").Select
    
End Sub