Données effacent dernière ligne

Bonjour le forum,

Avec le code suivant :

Num = .Range('a65536').End(xlUp).Row
.Range('a' & Num).Value = ComboBox1.Value
.Range('b' & Num).Value = ComboBox2.Value
.Range('c' & Num).Value = ComboBox3.Value
.Range('d' & Num).Value = TextBox1.Value
.Range('e' & Num).Value = TextBox2.Value + ComboBox4.Value
.Range('f' & Num).Value = TextBox3.Value
.Range('g' & Num).Value = TextBox4.Value
.Range('k' & Num).Value = TextBox5.Value

je veux ajouter à la dernière ligne non-vide les données.

Le problème est qu'elles écrasent la dernière ligne contenant des données. Donc je perds les infos de cette ligne.

Comment faire pour éviter la perte de cette dernière ligne ?

Merci