El subíndice está fuera del intervalo (Error 9) VBA para Excel

[datsrudo]

Hola Buenas Noches,
Soy bastante novata con las macros desde Visual Basic en Excel y recibI este mensaje de error (Se ha producido el erro '9' en tiempo de ejecucion.Subindice fuera del intervalo) justamente en la secciOn ActiveSheet. Move
Espero q me puedan ayudar. De antemano muchIsimas gracias por su tiempo y atenciOn!

Adjunto el cOdigo:

Sub ImportarArchivoD()
'
' ImportarArchivoD Macro
'
' Acceso directo: CTRL+d
miArchivo = Application.GetOpenFilename("Archivos texto,*.txt")
Workbooks.OpenText _
Filename:=miArchivo, _
Origin:=xlWindows, _
StartRow:=4, _
DataType:=xlDelimited, _
FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
ActiveSheet.Move _
Before:=Workbooks("Capitulo2").Sheets(1)
Range("A2").Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub