Macro para filtrar por las celdas utilizadas

Para Dante Amor, vengo trabajando en un planilla de toma de pedidos, que me has ayudado.

Actualmente tengo una macro que me guarda las hojas que se utilizaron y me lo guarda a PDF y lo envía por mail. Ahora necesitaría agregarle la función que solo me exporte y me envié los artículos que fueron vendidos para eso la referencia es el campo de cantidad, que es columna J y solo tiene habilitados los campos que se pueden cargar. Esta es la marco que uso.

Sub GuardarPdf()
    Dim hojas()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = "C:\Ventas\
       n = -1
    For Each h In Sheets
        If h.[G4] <> "" Then
            n = n + 1
            ReDim Preserve hojas(n)
            hojas(n) = h.Name
            If nomb = "" Then
                nomb = [G4] & " " & Format(Range("G2"), "dd-mm-yyyy") + Format(Now, "(hh'mm)") & ".pdf"
            End If
        End If
    Next
    If n > -1 Then
        Sheets(hojas).Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nomb, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
        ActiveWorkbook.Close False
        '
        Set dam = CreateObject("outlook.application").createitem(0)
        dam.To = "Martin@gmail"
        dam.Subject = nomb
        dam.Body = "Orden de Pedido Distribución"
        dam.Attachments.Add ruta & nomb
        dam.Display 'El correo se envía en automático
        'dam.Display 'El correo se muestra
        '
        MsgBox "Pedido Guardado, se debe enviar mail"
    End If
End Sub