Object Required Error in VB Excel Program that Passes Range to a function

I didn't read the line above - you can't assign a range based on a formula like that. Best guess would be:

Set TopCell = sheets("Data Tab").Range("A2").Offset(0, Range("B16").Value - 1).Resize(Range("B1:B15").cells(Range("B16").Value,1), 1)