Use ComboBox value to reference table and dynamically output corresponding column data

Hi numnuts

The Code in the attached has been modified to pull values

from the values in Sheet Data1.ColumnB

The following changes are identified in the Code:
In Sub Prep_Data()

'##############################################<--------Code Changed
        .Range(.Cells(1, 1), .Cells(LR, LC)).SpecialCells(xlCellTypeVisible).Select
'##############################################<--------Code Changed

In Sub test()

'##############################################<--------Code Added
                For i = 1 To 1
                    ws1.Range("B1").Offset(RowOffset + 4, ColumnOffset) = Aarea(i).Offset(-1, -1)
                Next i
'##############################################<--------Code Added

In Sub Finish_Up()

'##############################################<--------Code Removed
                
'                    .Cells(cel.Row + 1, i + 1).Value = Split(.Cells(cel.Row + 2, i + 1), " ")(0) _
'                            & Split(.Cells(cel.Row + 2, i + 1), ",")(1)

'##############################################<--------Code Removed

The attached jpg demonstrates my output for Job Title 8.