How to create a new sheet based on student Id numbers

• The sheet with all the data is called Sheet1.
• The column on Sheet1 with all the names is column B.

Sub RunMe()
Dim Header1 As Variant

Sheets("Sheet1").Select
Header1 = Range("A1:J1")

For Each cell In Range("B2:B" & Range("B1").End(xlDown).Row)
    cell.EntireRow.Copy
    If Not SheetExists(cell.Value) Then
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = cell.Value
        Range("A1:J1").Value = Header1
    Else
        Sheets(cell.Value).Select
    End If
    Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial
Next cell
End Sub

Function SheetExists(SheetName As String) As Boolean
SheetExists = False
On Error GoTo NoSuchSheet

If Len(Sheets(SheetName).Name) > 0 Then
    SheetExists = True
    Exit Function
End If

NoSuchSheet:
End Function