Public Sub TST_ChangeColN()
Dim vT As Variant
ReDim vT(5)
vT(1) = "Ãîðîä": vT(2) = "Ìåðà3": vT(3) = "Ìåðà1": vT(4) = "Ìåðà2": vT(5) = "Ìåðà4"
Call changeColN(vT)
End Sub

Public Function changeColN(vC As Variant)
Dim wsS As Worksheet, wsT As Worksheet 'ëèñò èñòî÷íèê
Dim rS As Range, rT As Range
Dim iC1 As Integer, iC2 As Integer
Dim ii As Integer, iC As Integer
Dim vCol As Variant
Set wsS = ThisWorkbook.Worksheets("Ëèñò1")
Set wsT = ThisWorkbook.Worksheets.Add
If wsS.ListObjects.Count <= 0 Then Exit Function
Set rS = wsS.ListObjects(1).Range
Set rT = wsT.Range(Cells(1, 1).Address & ":" & Cells(rS.Rows.Count, rS.Columns.Count).Address)
iC1 = 0: iC2 = 0
For ii = 1 To UBound(vC, 1)
    iC1 = Application.WorksheetFunction.Match(vC(ii), rS.Rows(1), 0)
    If iC1 <= 0 Then GoTo NextVC:
    iC2 = iC2 + 1
    vCol = rS.Columns(iC1)
    rT.Columns(iC2) = vCol
NextVC: Next ii

Set rT = wsT.UsedRange
wsT.ListObjects.Add xlSrcRange, rT, , xlGuess

Application.EnableEvents = False
'wsS.Delete
Application.EnableEvents = True
End Function