Rename File Name for duplicate

Private Sub CommandButton1_Click()
    Dim Curr, Mac As Workbook
    Dim wbData, M, Nac As Worksheet
    Dim wsCrit As Worksheet
    Dim wbNew As Worksheet
    Dim RNG As Range
    Dim lastrow As Long
    Dim Cur As Workbook
    Dim QS As Worksheet
    Dim a, b, c, D, Name, PT
    
    Set Text = Application.WorksheetFunction
    
    Set Curr = Application.ActiveWorkbook
    Set M = Application.ActiveSheet
    M.Activate
    Cells.Copy
    Worksheets(Array(M.Name, "E", "Sheet1", "C3R", "MIS", "OSR Report", "VCB", "ERROR", "Remarks")).Copy
      
    Set Mac = Application.ActiveWorkbook
      
    Curr.Activate
        
    Mac.Activate
    Set Nac = Application.ActiveSheet
        PT = Range("a3").Text
        If Range("F3").Text <> 0 Then
        MsgBox ("Limit Over, please contact Concerns immediately")
        Exit Sub
        End If
            
    Nac.Activate
    Set wsCrit = Worksheets.Add
    Nac.Activate
    lastrow = Range("B" & Rows.Count).End(xlUp).Row
    Nac.Range("B4:B3004").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsCrit.Range("A1"), Unique:=True
     
    Set RNG = wsCrit.Range("A2")
    
    Path = PT
    
    While RNG.Value <> ""
        Set wbNew = Worksheets.Add
        Nac.Range("B4:DE" & lastrow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RNG.Offset(-1).Resize(2), CopyToRange:=wbNew.Range("A1"), Unique:=True
        wbNew.Name = "TP"
        Range("A2:DD202").Select
        Selection.Copy
        Worksheets("E").Select
        Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteValues
        
        Worksheets(Array("E", "Sheet1", "C3R", "MIS", "OSR Report", "VCB", "ERROR", "Remarks")).Copy
        
        Worksheets("C3R").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("C5").Select
        Name = ActiveCell.Text
                If Range("j8").Value < 0 Then
                MsgBox (Name & " VCB Closing Balance is having Minus figure in 100 denom - Please check after this macro")
                End If
                If Range("j9").Value < 0 Then
                MsgBox (Name & " VCB Closing Balance is having Minus figure in 500 denom - Please check after this macro")
                End If
                If Range("j10").Value < 0 Then
                MsgBox (Name & " VCB Closing Balance is having Minus figure in 1000 denom - Please check after this macro")
                End If
                If Range("j11").Value < 0 Then
                MsgBox (Name & " VCB Closing Balance is having Minus figure - Please check after this macro")
                End If
            If Range("n8").Value <> 0 Then
            MsgBox ("Wrong VCB Uploaded - 100")
            End If
            If Range("n9").Value <> 0 Then
            MsgBox ("Wrong VCB Uploaded - 500")
            End If
            If Range("n10").Value <> 0 Then
            MsgBox ("Wrong VCB Uploaded - 1000")
            End If
                    
        ActiveSheet.Protect Password:="s"
        
        Worksheets("VCB").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("a1").Select
        Selection.ClearContents
        
        Worksheets("REMARKS").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("a1").Select
        
        Worksheets("OSR REPORT").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("a1").Select
        
        Worksheets("ERROR").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("a1").Select
        
        Worksheets("MIS").Select
        Range("A1").Select
        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("a1").Select
        
        [U][B]ActiveWorkbook.SaveAs Filename:=Path & "\" & Name & ".xls", FileFormat:=xlExcel8[/B][/U]
        Application.DisplayAlerts = False
        Sheets("E").Delete
        Sheets("C3R").Select
        ActiveWorkbook.Save
        ActiveWorkbook.Close False
        wbNew.Delete
        RNG.EntireRow.Delete
        Set RNG = wsCrit.Range("A2")
        Application.DisplayAlerts = True
        
    Wend
End
End Sub