excel macro to change file name based on column data

I have an existing macro that is pulling row data from main register file and modifying a different template file that is associated with the row entry. The macro is pasted down below and is working perfectly fine, no need to fix anything related to it !! So I just want to add a simple feature, I want it to also rename the file from Bla Bleh to a format based on the excel rows, so the new name will be "column O" "Column C" "First 2 words from column E" "the word Rev" "Column M" I hope it is clear for you. Please do not bid if you are not experienced - I don't like to keep testing wrong macro Existing macro is below: Public Const template_file = "Bla [login to view URL]" Public Const template_sht = "E-01"   Sub Fill_Template()     Dim pj_title As String, pj_no As Variant, xa2 As Variant     Dim xa3 As String, xa4 As String, rev As String, zdate As Variant, ref As Variant     Dim cur As Long     Dim main As Worksheet     Dim path_count, path     Dim template As Workbook, temp_sht As Worksheet, sht As Worksheet, sht_OK As Boolean         On Error GoTo exit_sub         With Application         .ScreenUpdating = False         .DisplayAlerts = False     End With         cur = [login to view URL]     Set main = ActiveSheet         'Check if the path is existed or not     path_count = [login to view URL]("O" & cur).[login to view URL]     If path_count = 0 Then         MsgBox "No path in select cell O" & cur & " !", vbInformation         GoTo exit_sub     Else     If Left([login to view URL]("O" & cur).Hyperlinks(1).Address, 1) = "." Then         path = [login to view URL] & "\" & [login to view URL]("O" & cur).Hyperlinks(1).Address & "\" & template_file     Else             path = [login to view URL]("O" & cur).Hyperlinks(1).Address & "\" & template_file     End If     End If         If Dir(path) = "" Then         MsgBox "Check the template path !", vbInformation        GoTo exit_sub     End If         'put information         With main         pj_title = .Range("E" & cur).Value         pj_no = .Range("C" & cur).Value         xa2 = .Range("D" & cur).Value         xa3 = .Range("G" & cur).Value         xa4 = .Range("F" & cur).Value         rev = .Range("M" & cur).Value         zdate = .Range("N" & cur).Value         ref = .Range("O" & cur).Value     End With         'Fill into template     sht_OK = False     Set template = [login to view URL](path, ReadOnly:=False)     For Each sht In [login to view URL]         If [login to view URL] = template_sht Then             sht_OK = True             Set temp_sht = sht             Exit For         End If     Next sht         If sht_OK = False Then         MsgBox "Check the template sheet name !", vbInformation         [login to view URL] savechanges:=False         GoTo exit_sub     End If         With temp_sht         .Range("D5").Value = pj_title         .Range("D6").Value = pj_no         .Range("J6").Value = xa2         .Range("J11").Value = xa3         .Range("H13").Value = xa4         .Range("J13").Value = rev         .Range("J15").Value = zdate         .Range("J16").Value = ref                 [login to view URL]         [login to view URL]     End With         MsgBox "Completed !", vbInformation     exit_sub:       With Application         .ScreenUpdating = True         .DisplayAlerts = True     End With     End Sub