I am hoping someone can help me improve on my code with improvements I am trying to make. I am copying my code below, as it works now it scans the first column and creates a folder in my desired location with the name of what is entered in the cell and also creates a link to the newly created folder. This is for tracking of work every folder that is created I have to manually go in copy an excel workbook sign-off form and rename it to the same thing as the folder name also the same as what is entered in the cell in column A that created the folder.

I would like to automate this process so after the folder and link are created it then copies the sign-off work book with the new name in the newly created folder. Any suggestions.

Private Sub CommandButton1_Click()
Dim cnf
Dim dir As String
Dim fnsh As Long
Dim i As Long
Set cnf = CreateObject("Scripting.FileSystemObject")
fnsh = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 8 To fnsh
  dir = "C:FILELOCATION" & Range("A" & i).Value
  If Not cnf.FolderExists(dir) Then
    cnf.CreateFolder (dir)
  End If
  If Range("A" & i).Hyperlinks.Count = 0 Then
  'Range("A" & i).Hyperlinks.Delete
  ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:=dir
  End If
  Next
Set cnf = Nothing
Application.ScreenUpdating = True
End Sub