excel/vb - dodajanje novih zapisov v "validate list"

zdravo, ali mi lahko kdo pomaga pri malem problemu z excelom oz že visual basicom

rad bi vnašal nove zapise v okence kjer se tudi izpisujejo(podobno combo boxu)

tale koda je macro samo deluje le če edini na listu oz. ali se ga da prirediti, da bi imel na istem listu več teh"cboxov", probam narest naročilnico v excelu

Polje C3
na list "lists"

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim ws As Worksheet
Dim i As Integer

Set ws = Worksheets("Lists")
If Target.Column = 3 And Target.Row > 1 Then
If Application.WorksheetFunction.CountIf(ws.Range("NameList"), Target.Value) Then
Exit Sub
Else
i = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Range("A" & i).Value = Target.Value
ws.Range("NameList").Sort Key1:=ws.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End If

End Sub


koko bi dodal podoben macro za polje npr. C4 kjer so drugi podatki.