exportar de un excel a otro excel

Estoy creando una aplicación con menú personalizado y quisiera agregar en el
menú la opción de exportar la hoja activa a otro excel. Sé crear el archivo
excel pero no sé cómo escribir la instrucción para que copie la información
del rango A1:P10000 de la hoja activa de la aplicación en el nuevo libro de
excel con los mismos formatos que la hoja activa.
Qué instrucción inserto en el siguiente código para que haga ésto?
Sub Exportar()
Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")
With xlObj
.Visible = True
.Workbooks.Add
With .ActiveWorkbook.Worksheets(1)
.Activate
End With
End With
End Sub

Muchas gracias.