Hola, buenos dias, como estan?

Les comento que soy nuevo tanto en el foro como en el uso de Macros.

Mi inconveniente es este, tengo la siguiente Macro:

Sub Definitiva_Posta()

 Definitiva_Posta Macro

    Range("B1:B10").Select
    Selection.Copy Sheets("Hoja2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Hoja1").Select
    Range("B2:B10").Select
    Selection.ClearContents
End Sub

Lo que debería hacer es, de la hoja asignación, copiar los valores de las celdas B1:B10 y pegar esos valores en la Hoja de Data. Pero al ejecutarlo me aparece el error 9 de Sub Indice fuera de rango.

Les adjunto el Link con el archivo por si les es de utilidad.

https://drive.google.com/open?id=1Pt1FxlFI2FSWAKkz7zmRfJ3QdQtdENrY

Desde ya muchas gracias y perdón por adelantado si cometí algún error de formato al publicar el tema.

Prueba la macro:

Sub Definitiva_Posta()
'
' Definitiva_Posta Macro
'
    Application.ScreenUpdating = False
    Hoja1.Range("B1:B10").Copy
    Hoja2.Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Hoja2.Rows(3).Insert Shift:=xlDown
    Hoja1.Range("B3:B10").ClearContents
    Application.CutCopyMode = False
    
End Sub