VBA Save As get directory from cell

I have the following code on a macro, which saves sets the print area, saves as PDF and sets the filename to the value in F4.

Sub mcr_saveaspdf()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:E" & LR
namefile = Range("F4").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=namefile
End Sub

That is working perfectly, but I need I need to create three more macro buttons to make it useful for our school, this also needs to use the code above to set print area and filename.


1 - Save a PDF copy to a destination where the last section = J2
(e.g. F:\RMSharedDocs\LPo\J2) - J2 would be "10lIt1\StudentName"
AND
Save an excel copy to a destination where the last section is the name as above, but the other part would be (N:\Documents\Feedback\J2)


2 - Save a PDF copy to a destination where last section is as above, but the first section is in J1. (e.g. "J1""F4") - (C:\Documents and Settings\lukepollard\Desktop\Feedback\10lIt1\StudentName)


3 - Launch SaveAs dialog and set file type to macro enabled workbook


Apologies to bombard - any advice would be greatly appreciated


Luke

FILE ATTACHED: feedbackversionforExcelForum.xlsm