Save Worksheet as workbook (Format .xlsm)

Good day,
I am looking for two codes, one I am almost done with and I will figure that one out. My second most challenging one would be a synopsis as follows:

I have a code telling me if anything in my active cell is higher than 1 mil to open a UserForm so that information can be provided to this form.

Once that form is complete I need the system to search in a specific directory if my Userform’s Label15.value and Label14.value making the following code, if it exist:
Label15.value & “ “ & Label14.value

I have a hidden sheet that will have the information from this Userform by copying what I need and pasting the information on a particular row (row4) in this sheet.

If the name already exist it need to grab the information from my original workbook on, let’s say Sheets(“sheet1”). Range(“A4:H4”) and copy the information on the next available row in my new open workbook, then save close.

IF it doesn’t not exist then go in this directory, create a new workbook based on my Sheets(“sheet1”) (Everything in this sheet) and save the content as my Label15.value & “ “ & Label14.value and save as .xlsm then close this workbook, go back to my original workbook and erase everything on row 4 from my Sheets(“sheet1”).

Dir: C:\Users\Desktop\

Hope someone can get me started.

Thank you so much,

Excel Noub

I have completed my code for opening if the code finds the right info:

Dim strRootPath As String, strSubFolder As String, strToOpen As String
Dim strUser As String, strReqNo As String, strPath As String, strFile As String

Sub findfolder()

    strRootPath = "My path here"
    strUser = "Text "
    strReqNo = Range("A" & ActiveCell.row)
    
    If strReqNo Like "*/[A-Z]" Then strReqNo = left(strReqNo, Len(strReqNo) - 2)
    
    strPath = strRootPath & strUser & strReqNo & ".xls"
    strFile = strUser & strReqNo

    If Dir(strPath) <> "" Then
        Workbooks.Open strPath
    Else
        MsgBox strFile & " Not Found "
    End If

End Sub

I have found an alternate method for my process

Thank you for trying

ExcelNoub