Copy a single file and rename based on cell value

I have a folder that contains a master file, I like to copy it to a different folder and create new file names based on excel cell value.

Master file --Different folder location ---create files based on cell value(john.pdf, mike.pdf and smith.pdf)

The code I have below

Sub CollectArt()
Dim FSO As Object
Dim SourceFileName, DestinFileFolder As String
Dim rng As Range, cell As Range
Set rng = Sheets("input").Range("Y2:Y100")

Set FSO = CreateObject("Scripting.Filesystemobject")
SourceFileName = "C:\Users\user\Desktop\template\master.pdf"
For Each cell In rng
If Len(cell) > 0 Then
FSO.CopyFile Source:=SourceFileName, Destination:=DestinFileFolder

DestinFileFolder = cell.Value

Exit For
End If
Next cell


End Sub

I need to loop through Column A and rename by each individual cell value, any thought?