I need a macro please

Sub test_corrected()
    Dim mysh As Worksheet, r As Range, rfilt As Range, rB As Range
    Dim j As Integer, unq As Range, cunq As Range, myshname As String
    Dim ppath As String, filename As String
    Dim identifier As String
    Application.DisplayAlerts = False
    
    ppath = ThisWorkbook.Path
    
   ' MsgBox ppath
    
    For j = 1 To 2
        Set mysh = Worksheets(j)
            
        With mysh
        Range(.Range("A1").End(xlDown).Offset(1, 0), .Cells(Rows.Count, "A")).EntireRow.Cells.Clear
            .AutoFilterMode = False
            myshname = mysh.Name
            Set r = .Range("a1").CurrentRegion
            Set rB = r.Columns("A:A")
            Set unq = .Range("A1").End(xlDown).Offset(5, 0)
            rB.AdvancedFilter xlFilterCopy, , unq, True
            Set unq = Range(unq.Offset(1, 0), unq.End(xlDown))
            End With 'mysh
            For Each cunq In unq
            identifier = Left(cunq, InStr(cunq, " "))
           ' MsgBox identifier
            
                If Not FileExists(ppath & "\" & cunq.Value & ".xlsx") Then
    'MsgBox "The file doesn't exist!"
    GoTo nextstep
Else
    Workbooks.Open ppath & "\" & cunq.Value & ".xlsx"
   GoTo secondstep
End If
nextstep:
                          Workbooks.Add
                
                With ActiveWorkbook
                    .SaveAs filename:=ppath & "\" & cunq & ".xlsx"
                   ' MsgBox ActiveWorkbook.Name
                    .Worksheets(1).Name = identifier & " " & "to Mgr"
                    .Worksheets(2).Name = identifier & " " & "Res Calc"
                End With
secondstep:
                'filename = cunq.Value
                r.AutoFilter field:=1, Criteria1:=cunq
                Set rfilt = r.SpecialCells(xlCellTypeVisible)
                rfilt.Copy
                
                With Workbooks(cunq & ".xlsx")                'With Windows(cunq)
                
                    With .Worksheets(j)
                        .Range("a1").PasteSpecial
                    End With
                    .Save
                    .Close
                End With
               Next cunq
                 
          '===================
          With ThisWorkbook.Worksheets(j)
          Range(.Range("A1").End(xlDown).Offset(1, 0), .Cells(Rows.Count, "A")).EntireRow.Cells.Clear
            .AutoFilterMode = False
            End With
            Next j
Application.DisplayAlerts = True
MsgBox "macro over new workbooks opened in the same folder check"
        End Sub
        
        
        
        
       'http://www.exceltip.com/files-workbook-and-worksheets-in-vba/determine-if-a-workbook-exists-using-vba-in-microsoft-excel.html
        
        Function FileExists(FullFileName As String) As Boolean
' returns TRUE if the file exists
    FileExists = Len(Dir(FullFileName)) > 0
End Function



'as thisworkbook is an xlsm file and all other files are xlsx
'used right(filename,1)=x as criterion to delete files
'http://mariaevert.dk/vba/?p=58
Sub deleteFiles()
Dim myPath, myfolder, fldr, fso, filename
myfolder = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject") ' Get a File object to query.
Set fldr = fso.GetFolder(myfolder)
                 
For Each filename In fldr.Files
If Right(filename, 1) = "x" Then

'MsgBox filename
End If
    On Error Resume Next
    filename.Delete True ' delete all files
Next
End Sub