...
'Определить, в какой строке и колонке находится поле Мера4.

'Вариант через RowRange
Dim СтрокаМера4 As Long, КолонкаМера4 As Long
Dim ИндексСтрокиPT As Long
Dim i As Long
For i = 1 To PT.RowRange.Count
    If PT.RowRange(i).Text = "Мера4 " Then
    ИндексСтрокиPT = i
    Exit For
    End If
Next i
СтрокаМера4 = PT.RowRange(i).Row '11. Верно
КолонкаМера4 = PT.RowRange(i).Column '2.Верно

'Или такой вариант через TableRange2
Dim СтрокаМера4_ As Long, КолонкаМера4_ As Long
Dim ИндексСтрокиPT_ As Long
Dim i_ As Long
For i_ = 1 To PT.TableRange2.Count
    If PT.RowRange(i).Text = "Мера4 " Then
    ИндексСтрокиPT_ = i_
    Exit For
    End If
Next i_
СтрокаМера4_ = PT.RowRange(i).Row '11. Верно
КолонкаМера4_ = PT.RowRange(i).Column '2.Верно
...