şimdi geldi sıra
listelerden sadece içeriği değişen 2 tanesinin güncellenmesine
20 kutu için 40 tane ayrı kod vardı o zaman hangisinden geldiğini kolayca bulup 

For i = 0 To ii
        Call FillEmployees("L" & Format(i, "00"))
Next

içerisine if yazarak

For i = 0 To ii
     if(target = i OR source = i) then
        Call FillEmployees("L" & Format(i, "00"))
    end if
Next


sadece 2 liste kutusu güncelleniyordu
bunu nasıl yapabiliriz