Error 9 en tiempo de ejecución. Subíndice fuera del intervalo

Buen día Señores:

Poseo un libro de excel en el cual existen unos datos en una hoja llamada "Plano" con unos formatos especiales de celdas y ancho de columnas. Estos datos lo necesito copiar en un libro de excel nuevo para poder guardar este ultimo como un archivo de tipo "Delimitado por espacios(*.prn).

Para ello realizo un paso intermedio consistente en copiar las filas que necesito de la hoja "Plano" a otra hoja dentro del mismo libro llamada "PlanoCopia" con la misma estructura y formato de la hoja "Plano" y desde aquí copio estos mismos datos a partir de la fila 1 hacia el nuevo libro para posteriormente guardarlo con extensión .prn en determinada ruta.

Para ello he construido el siguiente código VBA incrustado en un botón:

Private Sub btn_Guardar_Plano_Click()libroorigen = ThisWorkbook.NamestrHoja = ActiveSheet.Name 'la hoja se llama Planofilasaborrar = Sheets("PlanoCopia").Range("A1").End(xlDown).RowSheets("PlanoCopia").Range("A1", "AB" & filasaborrar) = clearConntentfilasacopiar = Sheets(strHoja).Range("A13").End(xlDown).RowSheets(strHoja).Range("A13", "AB" & filasacopiar).CopySheets("PlanoCopia").Range("A1", "AB" & filasacopiar).PasteSpecial Paste:=xlValuesApplication.CutCopyMode = FalseRange("A1").SelectDim appExcel As Objectlibrodestino = "Libro1.xlsx"Set appExcel = CreateObject("Excel.Application")appExcel.Visible = TrueappExcel.Workbooks.AddWindows(libroorigen).ActivateSheets("PlanoCopia").SelectSheets("PlanoCopia").Copy before:=Workbooks(librodestino).Worksheets(1)Application.DisplayAlerts = FalseWorkbooks("Pago.prn").SaveAs Filename:="S:\Pago.prn", FileFormat:=xlTextPrinterApplication.DisplayAlerts = FalseActiveWindow.CloseEnd Sub

Resulta que cuando ejecuto dicho código, me genera un Error 9 en tiempo de ejecución. Subíndice fuera del intervalo cuando llega a la linea de código Sheets("PlanoCopia").Copy before:=Workbooks(librodestino).Worksheets(1)Podrían por favor ayudarme a encontrar la causa que produce este error para poder corregirlo?? Le he modificado de muchas maneras pero no doy con el chiste.

Les agradezco muchísimo su valiosa colaboración y pronta respuesta. Saludos