Necesito macro selección hoja activa guardar como foto jpg

Te anexo la macro

Sub FiltroSemana()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    arch = "imagen.jpg"
    '
    Set r = Selection
    r.CopyPicture
    Set h3 = Sheets.Add
    h3.Shapes.AddChart
    With h3.ChartObjects(1)
        .Height = r.Height
        .Width = r.Width
        .Chart.Paste
        .Chart.Export ruta & arch
    End With
    h3.Delete
    MsgBox "Imagen guardada como jpg"
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias