Exporting columns into new workbook as text values not formulas

Try

Sub Export()
    
    Dim strFileName As String
    Dim d As Long
    d = Format(Now, "yyyymmdd")
    Range("Y2:Y250,BL2:BL250") = d
    
    strFileName = InputBox("Type a name for the new workbok", "File Name")
    If Trim(strFileName) = vbNullString Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Range("Y2:BL250").Copy
    Sheets.Add.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    ActiveSheet.Move
    ActiveWorkbook.SaveAs "J:\shared\Swaps\Equity Finance\Ryan\" & strFileName & ".xls", xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close False
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub