Samoistna zmiana formatu daty po dodaniu wiersza do tabeli

Witam.
Zwracam się do Was z problemem, problemem bardziej kosmetycznym, który bardzo mnie irytuje.
Poprzez procedurę w VBA:

Set addedRow = tbl_DoPowolania.ListRows.Add
With addedRow
.Range(2) = ComboBox1.Text
.Range(3) = Format(TswPesel, "00000000000")
.Range(4) = Format(ComboBox2.Value, "yyyy-mm-dd")
.Range(5) = Format(ComboBox3.Value, "yyyy-mm-dd")
.Range(7) = ComboBox4.Text
.Range(8) = "NIE"
End With

Dodaję do Tabeli nowy wiersz i po dodaniu oczywiście wszystko działa, ale Excel "sam" zmienia mi format komórki na NIESTANDARDOWY i "sam" wybiera z listy formatów jakiś format daty. Jeżeli usunę z tej listy ten format, który sam wybrał, to wskakuje na następny, tak że data raz pokazuje mi w formacie d.mm.rrrr, następnie "włączonone", "wyłączone" itd...
Oczywiście poradziłem sobie z tym, aby podczas "przekazywania dalej" tego wiersza data była w pożądanym dla mnie formacie, czyli w efekcie końcowym, gdy robię wydruk z tabeli, to data drukuje mi się w takim, jak trzeba, formacie, ale dalej w komórkach w tabeli widnieje jako data w innym formacie niż mój pożądany (czyli: yyyy-mm-dd).
Czy ktoś z Was wie, jak sobie z tym formatowaniem poradzić, aby za każdym razem, gdy włączę Excela i dodam nowe wiersze, to nie będę musiał ręcznie zmieniać formatowania?

Dziękuję za wszelkie uwagi.
Pozdrawiam

Na podstawie tego fragmentu kodu nie potrafię odtworzyć Twoich problemów,
ale spróbuj tak:

Set addedRow = tbl_DoPowolania.ListRows.Add
With addedRow
.Range(2) = ComboBox1.Text
.Range(3) = Format(TswPesel, "00000000000")
.Range(4) = ComboBox2.Value 'usunąłem formatowanie w samym combobox bo to nic nie zmienia
.Range(5) = ComboBox3.Value 'usunąłem formatowanie w samym combobox bo to nic nie zmienia
.Range(7) = ComboBox4.Text
.Range(8) = "NIE"
End With

'a teraz już poza with formatujemy same komórki w arkuszu

addedRow.Range(addedRow.Range.Row, 4).NumberFormat = "yyyy-mm-dd" 
addedRow.Range(addedRow.Range.Row, 5).NumberFormat = "yyyy-mm-dd"