Como enviar a un archivo de imagen un rango de celdas

Te anexo la macro, cambia Hoja1 por el nombre de la hoja donde tienes las celdas a copiar.

Cambia "A1:F18" por el rango de celdas a copiar.

El archivo con la imagen quedará guardado en la misma carpeta donde tienes el archivo con la macro.

Sub CopiarCeldasComoImagen()
'Por.Dante Amor
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets.Add
    ruta = ThisWorkbook.Path & "\"
    archivo = "temp.jpeg"
    '
    rango = "A1:F18"
    '
    With h1.Range(rango)
        anc = .Width
        alt = .Height
    End With
    '
    h1.Range(rango).CopyPicture
    h2.Shapes.AddChart
    With h2.ChartObjects(1)
        .Width = anc
        .Height = alt
        .Chart.Paste
        .Chart.Export archivo
        .Delete
    End With
    h2.Delete
    Application.DisplayAlerts = True
    '
    MsgBox "Rango de celdas guardadas como imagen"
End Sub