Macro excel para copiar texto de a1 a otra celda con ancho de celda a 15 espacios

Acrmuy puedes hacerlo con una formula en excel, ejm.

A B C

GUSTAVOGG..... =EXTRAE($A$1;C1;15) 15

=EXTRAE($A$1;C2;15) 30

=EXTRAE($A$1;C3;15) 45

y asi sucesivamente.......

O el código para realizarlo con una macro es el sigueiente teniendo en cuenta que el escrito esta tal como aparece en la primera opcion

Range("C1").Select
ActiveCell.FormulaR1C1 = "1"
Range("C2").Select
ActiveCell.FormulaR1C1 = "15"
Range("C1:C2").Select
Selection.AutoFill Destination:=Range("C1:C10000"), Type:=xlFillDefault
Range("C1:C10000").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "=MID(R1C1,RC[1],15)"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B10000"), Type:=xlFillDefault
Range("B1:B10000").Select
Range("B1").Select
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("B1").Select

Espero que te sirva y no olvides finalizar la pregunta en caso de que la respuesta sea de tu agrado.