リストシートには生徒名が記載されています。この生徒名ごとに原本をコピーしてシート名にしたいわけです。、

WorkSheetコピーするという操作に使うのは、WorkSheetCopyメソッド。

どこにコピーするかはブックの最後尾にしたいので、After:=Worksheets(Worksheets.Count)と指定します。

Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)

コピーしたシートには、リストシートに記載した生徒の名前をつけるので
リストシートにある個々の生徒名を名前という変数にします。

  Dim 名前 As Range

そしてFor Each……Nextステートメントをつかって、変数名前に対してシートをコピーして、 シート名には、名前の値を入れるようにします。

ここまでのコードは、

Sub リストから連続シート作成()
  Dim 名前 As Range
  For Each 名前 In Worksheets("リスト").Range("A2：A12")
     Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
     ActiveSheet.Name = 名前.Value
   Next 名前
End Sub
    

コードを実行すると、生徒名の成績管理シートがリストにある生徒の人数分作成されます。

リストの最後の岸田 明君まで作成されていますが、シートのA1セルは、生徒名となっています。 これでは、生徒名を入力しなければなりません。そこで、コードに1行追加します。
ActiveSheet.Range("A1") = 名前.Value

Sub リストから連続シート作成1()
  Dim 名前 As Range
  For Each 名前 In Worksheets("リスト").Range("A2：A12")
     Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
     ActiveSheet.Name = 名前.Value
     ActiveSheet.Range("A1") = 名前.Value
   Next 名前
End Sub
    

これでA1セルに生徒名が入ります。

コードをもう少し、Withステートメントで簡潔にすると、

Sub リストから連続シート作成2()
  Dim 名前 As Range
  For Each 名前 In Worksheets("リスト").Range("A2：A12")
     Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
     With ActiveSheet
        .Name = 名前.Value
        .Range("A1") = 名前.Value
     End With
   Next 名前
End Sub
    

ActiveSheetという同一オブジェクトの記述を簡潔にすることができます。