To anyone with a spare moment;

I currently have some code that creates a new workbook from the active sheet and names it from a particular cell. I would like to change it so that it draws from two different cells and adds unchanging text to the file name.

The current code is; 
'Save the new workbook as cell value H13 and close it
    ActiveSheet.Name = Range("I8").Value
    '      Change the following default folder
    TempFilePath = "C:\TEMPCERT" & "\"
    TempFileName = ActiveSheet.Range("I8").Text
    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        .Close SaveChanges:=False
    End With
How would I change this so that it creates a filename with cell I8, adds a space, adds contents of another cell, adds another space, and finishes with something like 'COMPANYA'.

Any help would be greatly appreciated!