Распечатайте несколько листов в одном файле PDF на основе значения столбца

Question

У меня есть следующая рабочая книга в Excel, и я хотел бы распечатать многостраничный файл pdf.file, содержащий лист "Oversigt", а затем все листы, помеченные знаком x в столбце D. Название листа находится в столбце B.

Найден этот код:

Sub PrintOut()
    Dim ary
    Dim a As Variant, fp As String
    ary = Array("Oversigt", "211A", "211B")

    fp = ActiveWorkbook.Path

    ThisWorkbook.Sheets(ary).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub

Но мне нужно заполнить массив на основе столбцов B и D, а также я хотел бы спросить, где сохранить мой файл PDF.