Option Explicit

Sub start_v2()
    Dim i           As Long
    Dim importSheet As Worksheet: Set importSheet = ThisWorkbook.Worksheets("import")
    Dim lastSheet   As Worksheet: Set lastSheet = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

    With importSheet
        Dim size    As Long: size = WorksheetFunction.CountA(.Range("A2:A500"))
        Dim tmpName() As Variant: tmpName = .Range("A2:A" & size + 1).Value
        Dim base()  As Variant: base = .Range("A2:S" & size + 1).Value
    End With

    For i = 1 To size

        If importSheet.Cells(i + 1, 20).Value = "a" Then    ' Предполагая, что Отметки находятся в столбце T (столбец 20)
            ThisWorkbook.Worksheets("template").Copy After:=lastSheet
            Dim newSheet As Worksheet: Set newSheet = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
            newSheet.Name = "п." & tmpName(i, 1)

            With ThisWorkbook.Worksheets(i)
                ' тот же код что и в прошлом коде тут впишите сами
                ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            End With

            Set lastSheet = newSheet
        End If

    Next i

End Sub