Sub Find_to_index(list As String, index As String, val1 As String, N_horz_val1 As Integer, N_vert_val1 As Integer)
Rem зная имя листа, индекс обьекта и содержимое переменной находим обьект в его координатах
Rem возвращаем номер столбца и номер строки, содержащие обьект

Dim iRow As Integer
Dim iClm As Integer
Dim i As Integer

Узнаем номер последней строки листа
iRow = Sheets(list).UsedRange.Row + Sheets(list).UsedRange.Rows.Count -  1 
Узнаем номер последней колонки листа
iClm = Sheets(list).UsedRange.Column + Sheets(list).UsedRange.Columns.Count -  1 

rem Индекс - это имя колонки, содержащееся в первой строке.
rem Ищем совпадение  данных в первой строке с образцом
For i =  1  To iClm+ 1 
    If Sheets(list).Cells( 1 , i) = index Then GoTo Lab1 rem Нашли
Next i
Lab1:

N_horz_val1 = i
    
    If N_horz_val1 = iClm+ 1  Then
        MsgBox "На листе " + list + " не обнаружен индекс " + index
        GoTo Lab3
    End If

rem Зная колонку ищем теперь столбец
For i =  1  To iRow +  1 
    If Sheets(list).Cells(i, N_horz_val1) = val1 Then GoTo Lab2 rem нашли
Next i
Lab2:

N_vert_val1 = i

    If N_vert_val1 = iRow +  1  Then
        MsgBox "Запись " + val1 + " с индексом " + index + " не найдена на листе " + list
        GoTo Lab3
    End If

Lab3:
    

End Sub

rem Зная колонку ищем теперь строку

With Sheets(list)
Rem Количество колонок на листе +1
    iClm = .UsedRange.Column + .UsedRange.Columns.Count
End With
    
Rem В области от первой колонки до последней и в первой строке 
With Worksheets(list).Range(Sheets(list).Cells( 1 ,  1 ), Sheets(list).Cells( 1 , iClm -  1 ))
Rem Ищем  содержимое переменной index и узнаем адрес ячейки
    Set C = .Find(index, LookIn:=xlValues)
Rem и узнаем адрес ячейки
    firstAddress = C.Address
End With

Set rColumn = ws.UsedRange.Rows( 1 ).Find(ColumnName).EntireColumn

Set rColumn = ws.UsedRange.Rows( 1 ).Find(ColumnName).EntireColumn