Try this. The code uses column 10 of worksheets to clean up names.
I've included an optional hyperlink. It slows down execution but may be useful for checking purposes. Delete the lines if not required

Sub Test()

   Dim DNP As Workbook, SSS As Workbook
    Dim wss As Worksheet
    Dim Juris As Range
    Dim i&, k&
    Set DNP = Workbooks("Do Not Pay File Sample.xlsm")
    Set SSS = Workbooks("Summary Sheets Sample.xlsm")
    Call GetInit(DNP)
    Call GetInit(SSS)


    For Each ws In DNP.Sheets
        'ws.Activate
        If ws.Cells(1, 1) <> "" Then
            arr = ws.UsedRange
            For i = 1 To UBound(arr)
                If InStr(1, Trim(arr(i, 2)), "TOTAL") = 0 And Not (arr(i, 2) = Empty) Then
                    x = Split(Trim(arr(i, 2)), "-")
                    Set wst = SSS.Sheets(x(1) & " " & x(0))
                    If Not wst Is Nothing Then
                        Set Juris = wst.Columns(10).Find(arr(i, 10))
                        If Not Juris Is Nothing Then
                            'Application.Goto Juris
                            For k = 3 To 8
                                wst.Cells(Juris.Row, k - 1) = arr(i, k)

                                'Optional hyperlink                                
wst.Hyperlinks.Add Anchor:=Cells(Juris.Row, 1), _
                                Address:="DO%20NOT%20PAY%20FILE%20SAMPLE.xlsm", _
                                SubAddress:=ws.Name & "!A" & i
                                'End of Option
Next k
                        End If
                    End If
                End If
            Next i
        End If
    Next ws
    Call CleanUp(DNP)
    Call CleanUp(SSS)
    MsgBox "Done"
End Sub


Sub GetInit(Bk)
    Dim ws As Worksheet, r As Range
    Dim tmp
    On Error Resume Next
    For Each ws In Bk.Sheets
        Set r = ws.Columns(1).SpecialCells(2)
        If Not r Is Nothing Then
            For Each cel In r
                tmp = cel.Offset(, 9)
                tmp = Application.Substitute(cel, " ", "")
                tmp = Application.Substitute(tmp, "-", "")
                tmp = Application.Substitute(tmp, Chr(26), "")
                cel.Offset(, 9) = tmp
            Next cel
        End If
    Next ws
End Sub


Sub CleanUp(Bk)
    Dim ws As Worksheet, r As Range
    Dim tmp
    On Error Resume Next
    For Each ws In Bk.Sheets
        ws.Columns(10).ClearContents
    Next ws
End Sub