VBA Zeilen volle Zählen bis LZ und Anzahl in andere Zeile einfügen

[nopset]

Guten Tag,

bin ein totaler Neuling was VBA Programmierung angeht.
Ich habe einige Fragen und hoffe,dass jmd. mir helfen kann.



Sub Makro13()
'Werte eingefügt

Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 13, 1), 1).Value = "163

Positionen ausgewählt )"
Cells(Application.WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row + 2, 1), 1).Value = "Euro
:"
ActiveCell.Font.Bold = True
'

End Sub

Dieser Code klappt, die Werte kommen in die richtige Zeile,allerdings variiert die Zeilenanzahl (in diesem Fall 163). Ich möchte diese gerne bis zur ersten Leerzeile (Ergebnis ohne Leerzeile) zählen lassen und an genau dieser obigen Position im Text einfügen. ("163" Positionen ausgewählt)

2. Problem: Den eingefügten Text "Euro" hätte ich gerne Fettgedruckt, da passt etwas nicht am Code.ActiveCell macht die aktive Zelle auf der ich gerade bin fett, auf die genaue Zelle kann ich mich nicht beziehen, da der Text Euro an unterschiedlichen Stellen sein wird.

Bin dankbar für jede Antwort!
Gruß,
Karin