Autofill bis zum Ende als VBA

Hallo,
in Excel kann man ja eine Zelle markieren und dann per Doppelklick bis nach unten, bis zum Ende der links danebenstehende Spalte, autoausfüllen.

Range("B5").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Value = 0

Er soll also rechts neben der letzten Spalte eine weitere Spalte mit 0 Werten machen. Allerdings nur bis zu der Zeile, die noch Werte enthält. Bei meiner Lösung befüllt er die Spalte bis ins Nirwana.Wie kann man das machen?

Vielen Dank. Schon mal.