質問です

Sub main()
Dim p As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk As Workbook
Application.DisplayAlerts = False

If Worksheets("Sheet2").Range("A1") = "" Then Exit Sub
If Worksheets("Sheet2").Range("A2") = "" Then
    e = 1
Else
    e = Worksheets("Sheet2").Range("A1").End(xlDown).Row
End If

    
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
    Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
    '処理対象は １番目のシートのみ。
    
    With w.Sheets(1)
        
        kg = 1          '処理終了行
        
        For gg = 1 To e
            If .Range("A1") = "" Then Exit For
        
            If .Range("A2") <> "" Then
                kg = .Range("A1").End(xlDown).Row
            Else
                Exit For
            End If
    
           For b = kg To 1 Step -1
                chk = ThisWorkbook.Worksheets("Sheet2").Cells(gg, "A").Value
                If Right(.Cells(b, "A"), Len(chk)) = chk Then
                    .Rows(b).Delete Shift:=xlUp
                End If
           Next b
        Next gg
    End With
         
    w.Save
    w.Close
    f = Dir
Loop

Application.DisplayAlerts = True

End Sub