XL 2019 copy filtered range to jpeg

Option Explicit

Sub Export()
Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

    Set oWs = ActiveSheet
    Set oRng = oWs.Range("B2:H11")

    oRng.CopyPicture xlScreen, xlPicture
    lWidth = oRng.Width
    lHeight = oRng.Height

    Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

    oChrtO.Activate
    With oChrtO.Chart
        .Paste
        .Export Filename:=ThisWorkbook.Path & "\" & "Range2JPEG.jpg", Filtername:="JPG"
    End With

    oChrtO.Delete
End Sub