Thank you for your answer
But in DV list i get data from multi ranges, and i want to add empty row at the first row of list. I try use chr(32) but excel doesn't accept blank for a row. This is my code:
kg = Chr(32)
kq = kq & ", Item 1" & ", Item 2"
With com_code.validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=kg
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = "Options"
.ErrorTitle = ""
'.InputMessage = "Click yes or no"
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With