bu kodu eklemezseniz sorun olur abey.

Private Sub CommandButton16_Click()

    Sheets("TASARI").Cells.Clear

    For x = 1 To 14

        Y = Controls("ComboBox" & x).ListIndex + 1

        If Y > 0 Then Sheets("VERİ").Columns(Y).Copy Destination:=Sheets("TASARI").Columns(x)

    Next x

End Sub