Sub CommandButton1_Click1()
Dim OldName As String, NewName As String, sPath1 As String, sPath2 As String
Dim i As Long, lLastRow As Long
On Error Resume Next
sPath1 = Cells(1, 2)
sPath2 = Cells(1, 7)
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To lLastRow
OldName = sPath1 & "\" & Cells(i, 2) & ".pdf" 'старое имя в ячейке
NewName = sPath2 & "\pdf\" & Cells(i, 6) 'новое имя
Name OldName As NewName
Next i

End Sub

Chislo = objMatches.Item(1).SubMatches(0)

let
    l="http://docs.cntd.ru/document/1200041199#",
    m={0.1,0.25,0.63,1,1.6,2.5,4.0,6.3,10,16},
    n={"Условный проход (номинальный размер)", "", "_1", "_2", "_3", "_4", "_5", "_6"},
    t="Номинальное (условное) давление , МПа (кгс/см)",
     
    f=(x,y,z)=>List.Select(x,(x)=>x>=y and x<=z),
    g=(x,y)=>Number.From(Text.BetweenDelimiters(x,"(",")",y,0))/10,
    h=(x)=>[a=g(x,0), b=g(x,1), c=f(m,a,b)][c], 
 
    from =  Table.PromoteHeaders(Web.Page(Web.Contents(l)){3}[Data]),
    typ = Table.TransformColumnTypes(from,List.Transform(n,(x)=>{x,Number.Type})),
    err =  Table.ReplaceErrorValues(typ, List.Transform(n,(x)=>{x,null})),
    fill = Table.FillDown(err,n),
    to = Table.ExpandListColumn(Table.TransformColumns(fill,{t,h}), t)
in
    to