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

Sub SelectColumn()
  Dim i As Long
  Dim diapaz1 As Range
  Dim diapaz2 As Range
Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
For i = 1 To diapaz1.Columns.Count
If WorksheetFunction.CountA(diapaz1.Columns(i).EntireColumn) = 0 Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1.Columns(i).EntireColumn
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1.Columns(i).EntireColumn)
End If
End If
Next
If diapaz2 Is Nothing Then
MsgBox "Ненайдено ниодного пустого столбца!"
Else
diapaz2.Select
End If
End Sub

...{"Ссылки на РД",each Text.Combine([a],"; ")}...

...{"k",each Text.Middle([a], 5, 2)}...

...
    let
        Result
            if [Исправление] = null then
                #"Заменить на исправление" = ?
            else
                #"Заменить на исправление" = ?
    in
        Result
...

Sub WriteSERVICE(control As IRibbonControl)
    Dim rowsDict As Object, wsUnload As Worksheet
    Dim s As String, ss As String, j As Long, n As Long
     
    Set wsUnload = ActiveSheet
    Set rowsDict = CreateObject("Scripting.Dictionary")
    If wsUnload.Cells(wsUnload.Rows.Count, 7).Value <> "" Then n = wsUnload.Rows.Count Else n = wsUnload.Cells(wsUnload.Rows.Count, 7).End(xlUp).Row
    For j = 5 To n
        If Not rowsDict.Exists(wsUnload.Cells(j, 4).Value) Then
            rowsDict.Add wsUnload.Cells(j, 4).Value, wsUnload.Cells(j, 4).Value
            s = s & "[InstanceData]" & vbCrLf & "SERVICE=" & wsUnload.Cells(j, 4).Value & vbCrLf & vbCrLf
        End If
    Next j
    
    ss = ThisWorkbook.Path & Application.PathSeparator & Cells(3, 2) & "_" & Format(Now, "dd-mm-yy-hh-mm-ss") & "_SERVICE" & ".txt"
    Open ss For Output As #1
    Print #1, s
    Close #1
    MsgBox "Файл сформирован: " & ss, 64, "Excel"
End Sub

=СЦЕПИТЬ(ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;4294967295);8);"-";ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;65535);4);"-";ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;65535);4);"-";ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;65535);4);"-";ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;4294967295);8);ДЕС.В.ШЕСТН(СЛУЧМЕЖДУ(0;65535);4))