On the Data sheet consider using a dynamic Data Validation list. This way you can copy the values straight from the sheet. Unless you are using the index of those combo boxes for something you didn't specify here.
Named Range:
=OFFSET(Data!$A$2,1,0,COUNTA(Data!$A:$A)-1,1)
Data Validation > List > Source = Named Range
This just copies the whole table over to the next sheet.
Sub copy_resize_tester()
Plan3.Range("b3").Resize(Cells(Rows.Count, "b").End(xlUp).Row - 2, Cells(3, Columns.Count).End(xlToLeft).Column - 1).Copy
Sheet1.Range("a3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub