Sub Test()
'drop down list
Dim language As Variant
Dim team As Variant
language = [{"KA", "KT", "PJ", "TU"}] ' assign value
'put in K2 array language
With Range("K2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween...