Procedura je přímo v UserFormu, konkrétně je to tato:

Private Sub ListBox1_Click()
   Dim r As Long, RL As Long, WSV As Worksheet, Priznak As Boolean, Link As String, DP()
   Set WSV = Worksheets("Vyhledávání")
   With ListBox1
     r = WorksheetFunction.Match(.Column(0, .ListIndex), Worksheets("Data").ListObjects(1).DataBodyRange.Columns(1), 0)
     On Error Resume Next
     RL = WorksheetFunction.Match(.Column(3, .ListIndex), WSV.Cells(1, 6).Resize(WSV.Cells(Rows.Count, 6).End(xlUp).Row).Value, 0)
     Priznak = True
     If Err <> 0 Then RL = ActiveCell.Row Else Priznak = Not (MsgBox("Jeden záznam se shodným RČ je již vložen." & vbNewLine & vbNewLine & "ANO - Ponechat vložený záznam" & vbNewLine & "NE - Nahradit vložený záznam novým", vbYesNo) = vbYes)
     If Priznak Then
       ReDim DP(1 To 1, 1 To 27)
       DP = Worksheets("Data").ListObjects(1).DataBodyRange.Rows(r).Value
       With WSV
         DP(1, 12) = "=IFERROR(HYPERLINK(DIREXISTS(B" & RL & "),DIREXISTS(B" & RL & ",FALSE)),"""")"
         .Cells(RL, 2).Resize(, 27).Value = DP
       End With
     End If
   End With
   Unload Me
End Sub

Změna byla provedena na těchto řádcích:
ReDim DP(1 To 1, 1 To 27)
.Cells(RL, 2).Resize(, 27).Value = DP

Původní hodnota byla 14