Sub Create1()
    'Dim a As Integer, b As Object, StrNow As Integer
    Dim v As Long, sh As Worksheet, sh0 As Worksheet
    Application.ScreenUpdating = False
    Set sh0 = Sheets("Report")
    On Error Resume Next
    With sh0
        For v = 10 To .Range("E" & .Rows.Count).End(xlUp).Row
            Sheets(.Range("E" & v).Value).Select
            If Err And .Range("E" & v) <> "" Then
                Sheets.Add After:=Sheets(Sheets.Count)
                Set sh = ActiveSheet
                sh.Name = .Range("E" & v)
                .Range("A9:S9").Copy
                sh.Range("A1").PasteSpecial xlPasteColumnWidths
                sh.Range("A1").PasteSpecial xlPasteAll
                Application.CutCopyMode = False
            End If
        Next v
    End With
    Sheet1.Activate
    Application.ScreenUpdating = True
End Sub