Move & Rename PDF File

I've written most of the code that I need... the problem is that I don't know how to properly select, move and rename the pdf from excel.

I have a popup to select the file, and I know what I want it to be called, what I need is the code to move and rename a non-excel file from inside a macro.

Here is what I have so far:

Sub AttachPDF()

Dim LastName As String
Dim Street As String
Dim callDate As String
Dim FilePath As String
Dim HouseNumber As String
Dim FullFileName As String
Dim FileName As String
Dim Scan As String

Range("D32").Select
'Ask user what file they want to attach.
Scan = Application. GetOpenFilename(FileFilter:="Follow Up Scan, *.pdf", Title:="Please Choose A PDF To Attach")

If Scan <> False Then