I need a VBA code to save a worksheet as the current file name and export to PDF. The code below is what I got when I recorded this action. The problem is that the file path and file name will change monthly, so I need it to be for the current path & name. How do I modify this code to do that?

Sub PDFExport()
'
' PDFExport Macro
' To save AIA Line Breakout to PDF as billing summary sheets for backup file.
'

'
ChDir _
"H:\001 Monthly Billings\2023\02 FEBRUARY 2023\001 CINFAB\UC Health\002 SI Infill"
ActiveWorkbook.SaveAs Filename:= _
"H:\001 Monthly Billings\2023\02 FEBRUARY 2023\001 CINFAB\UC Health\002 SI Infill\SI INFILL FEBRUARY 2023 LABOR & MATERIAL DETAILS.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close
End Sub