Açılır liste kutusunu bir çalışma sayfasına bağlamadan yaptım.

kodu da ;

Sub VeriDogrulama_Maliyet(ByVal hcr As Range)
Dim liste As Variant
Dim son As Long

' Açılır menüde görünecek değerleri belirtin
liste = Array("0.25 lt Maliyet", "0.5 lt Maliyet", "1 lt Maliyet", "5 lt Maliyet", "10 lt Maliyet", "20 lt Maliyet")

With ThisWorkbook.Worksheets("Maliyet hesaplama")
son = .Cells(.Rows.Count, "B").End(xlUp).Row
With hcr.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(liste, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With
End Sub

değiştirdim. sizce sorun olur mu?