Sub CreateSheet()
Dim iShtName As String
Dim iLastRow As Long
Dim Imena As Worksheet
   Set Imena = ThisWorkbook.Worksheets("Имена")
 iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
 iShtName = Range("B" & iLastRow)
  If Not SheetExist(iShtName) Then  'функция проверки наличия листа в файле
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = iShtName
    Range("A1") = iShtName
    Imena.Range("C2:E2").Copy Range("B4")
    Imena.Range("C" & iLastRow & ":E" & iLastRow).Copy Range("B5")
    Imena.Activate
    ActiveSheet.Hyperlinks.Add anchor:=Range("B" & iLastRow), Address:="", _
                    SubAddress:="'" & iShtName & "'" & "!A1"
  End If
End Sub
     'функция проверки наличия листа в файле, лист есть - true
Function SheetExist(iName As String) As Boolean
    On Error Resume Next
    With Worksheets(iName): End With
    SheetExist = (Err = 0)
End Function