質問です

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
    
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          '開始する行
        
        .Columns("A:A").Insert Shift:=xlToRight

        r = .Range("A1").SpecialCells(xlLastCell).Row
        c = .Range("A1").SpecialCells(xlLastCell).Column

        For b = 2 To c
            For d = 2 To r
                If InStr(1, .Cells(d, b), "@") > 0 Then
                    .Cells(kg, "A") = .Cells(d, b)
                    kg = kg + 1
                End If
            Next d
        Next b
        
        .Range(.Cells(1, 2), .Cells(r, c)).Delete Shift:=xlToLeft

    End With
         
    w.Save
    w.Close
    f = Dir
Loop

Application.DisplayAlerts = True

End Sub