|Your stats say you are using Excel 2003, but you used xlsm in your post.|
I recorded then modified this in 2003, so some of the options may differ for 2007.
Just to be safe, you might want to record the Save As operation and then modify the code so it looks like my example.
You may need to include Sheet names, etc. The basic idea is to build the filename using the references to the Ranges. Don't forget the space.
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Tom\Desktop\FA\" & Range("A2") & " " & Range("A1") & ".xlsm", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _