Got it.

Had to change:
vaData = Range(ActiveWindow.RangeSelection.Address).Value

to:
vaData = Worksheets(2).Range(ActiveWindow.RangeSelection.Ad dress).Value

I was pulling data off the first sheet instead of the second. The first
sheet has no values for the first 3 columns so it filled my array with empty
values. It's odd because the line right before it works and selects the
correct cells on the second sheet but then feeds the array from the first
sheet without specifying which sheet to go to and copy into the array.

Hope this helps someone else in the future.

Jerry