Готовый макрос

=ИНДЕКС($A$1:$F$1;1;H1)

Sub MyProc()
Dim RngNmbrs As Range, RngOrd As Range, RngRes As Range, c As Range
i = Range("A1").End(xlDown).Row
 
Set RngNmbrs = ActiveSheet.Range("A1:F" & i)
Set RngOrd = ActiveSheet.Range("H1:M" & i)
Set RngRes = ActiveSheet.Range("O1:T" & i)
 
For Each c In RngOrd.Cells
    RngRes.Cells(c.Row, c.Column - 7) = RngNmbrs.Cells(c.Row, c.Value)
Next c
End Sub

Sub Proba()
  For I = 1 To 6
    Cells(1, 14 + Cells(1, 7 + I)) = Cells(1, I)
  Next
End Sub

    With Selection.Borders()
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With

Sub Ta()
  With Range("O1:T1").Resize(Cells(Rows.Count, 1).End(xlUp).Row)
    .Rows(1).FormulaArray = "=INDEX(A1:F1,H1:M1)"
    .Rows(1).AutoFill .Cells
    .Value = .Value
  End With
End Sub

Sub Макрос4()
  With Range("E2,E6:F6,F9").Validation 'адрес диапазона
    .Delete
    .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=0"
    .IgnoreBlank = True
    .ShowInput = False
    .ShowError = False
  End With
  ActiveSheet.CircleInvalid
End Sub