Excel - Repetir registros en Excel de acuerdo a un valor en cada registro

Sub repetir_Registros()

Dim C As Range, Rng As Range, ws As Worksheet

Application.ScreenUpdating = False

Set Rng = Range("a2", [a1].End(xlDown))

Set ws = Rng.Worksheet.Parent.Worksheets.Add(after:=Rng.Worksheet)

Rng(1).Offset(-1).Range("a1:c1").Copy ws.[a1]

For Each C In Rng

  C.Range("a1:c1").Copy _

    ws.Cells(Rows.Count, "a").End(xlUp).Offset(1).Resize(C.Range("c1"))

Next

ws.[a1].CurrentRegion.Columns.AutoFit

Application.ScreenUpdating = True

End Sub