Duda sobre el área de impresión.

Tengo esta Macro, que me copia los valores y el formato de la hoja, crea otra hoja con el nombre de una celda espeficica.

Sub Guardar()
Dim hoja As Worksheet, existe As Boolean, nueva As String
nueva = Sheets("Precios").Range("a2")
If nueva = Empty Then Exit Sub
    For Each hoja In Worksheets
If hoja.Name = nueva Then existe = True: _
        MsgBox "Ya existe presupuesto", vbCritical
    Next hoja
    If existe = False Then
        Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = nueva
            .Tab.Color = 43555
        End With
    Sheets("Precios").Range("A3:J41").Copy
    Sheets(nueva).Range("A3").PasteSpecial _
    Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End If
End Sub

El problema, es que necesito que copie tambien el tamaño de las celdas y que siga manteniendo el area de impresion.

¿Es posible hacer eso? ¿Cómo?