I have the following macro set up to create a folder in a directory as per the contents of 2 cells

C2 = Folder name to be created
B2= Date for previous working day


Sub CreateFolderUsingRangeValue()
Dim ObjA, NewFolder
Const RootFolder As String = "\\ccfilesvr\shared\membership services\operations\supervisors\RESOURCE AREA stats & info\Statistics\Daily Stats Import 2014\Daily Stats July 2014"
NewFolder = RootFolder & "\" & Sheets("Move & Rename").Range("C2").Value & Format(Sheets("Move & Rename").Range("B2 ").Value, " dd mmm yy")
Set ObjA = CreateObject("scripting.filesystemobject")
If ObjA.folderexists(NewFolder) = True Then
If MsgBox("Folder Exists, do you want to erase it?", vbYesNo, "CriticalInfor...") = vbNo Then

Exit Sub
Else
ObjA.deletefolder (NewFolder)
ObjA.createfolder (NewFolder)
End If
Else
ObjA.createfolder (NewFolder)
End If
End Sub
I then have another macro that moves files into a specified folder within the same location ( I then manually move them into the folder the first macro created)

Is there a way I could get the files to move to the newly created folder without me having to do it manually.

I hope this makes sense