Spalte bis zum Inhaltsende formatieren

Sub Makro1()
Columns("F:F").Select
Selection.NumberFormat = "0.00"
End Sub

Dummerweise ist dann aber wirklich die ganze Spalte F formatiert, also auch Zellen, die vorher leer waren, enthalten dann den Wert 0.00. Und das geht bis F65536 und verhindert leider ein weiteres Arbeiten mit der Tabelle.
Kann mir eventuell jemand helfen? Ich möchte also, dass bis zum "Inhaltsende" in Spalte F formatiert wird...
Ich bedanke mich im Vorraus!!!
Mit freundlichen Grüßen,
Jochen