Sub CreateList()
Dim i As Long
Dim iLastRow As Long
Dim List1 As Worksheet
  Set List1 = ThisWorkbook.Worksheets("сводная")
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    Worksheets("Образец").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = List1.Cells(i, "A")
    With List1
      .Range("A" & i).Copy Range("A2")       'ФИО
      .Range("B" & i).Copy Range("E2")       'л/с
      .Range("D" & i).Copy Range("C4")       'калории
      .Range("E" & i).Copy Range("D4")       'тариф
      .Range("F" & i).Copy Range("E4")       'сумма
      Range("E4").NumberFormat = "#,##0"
    End With
  Next
End Sub

Sub CreateList_my()
Dim i As Long
Dim iLastRow As Long
Dim List1 As Worksheet
Dim k As Long
Application.ScreenUpdating = False
  Set List1 = ThisWorkbook.ActiveSheet
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    With List1
    k = Application.WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(i, 2)), .Cells(i, 1)) - 1
    Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = List1.Cells(i, "A") & "_" & k
      Range("BF99") = Format(.Range("A" & i), "DD.MM.YYYY")   'LicensePlate
      Range("G9") = .Range("B" & i)    'Date
      Range("L30") = .Range("C" & i)     'Weight
    End With
  Next
Application.ScreenUpdating = True
End Sub