Copy sheet to new workbook with cell data as title

Question

I have used the below and want to modify it to not overwrite the file but create a new file how do I do that or can I modify the new file string to include a cell value in the file name + Daily Report cell value is = to yesterdays day and is formatted like 3-Mar-2022 so in the end I would want every new file to be yesterdays date + Daily Report

Option Explicit

Public Sub TestMe()

    Dim newWb As Workbook
    Dim newWbPath As String: newWbPath = ThisWorkbook.Path & "\Daily Report.xlsx"
    Set newWb = Workbooks.Add

    ThisWorkbook.Worksheets("Daily Reports").Cells.Copy
    newWb.Worksheets(1).Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

    newWb.SaveAs newWbPath
    newWb.Close

End Sub