Jak vytvořit makro na vyhledání obsahu buňky?

[matio]

Dobrý den,
Potřeboval bych poradit s vytvořením makra: Potřebuji aby mi makro vyhledalo ve sloupci poslední neprázdnou buňku a aktivovalo buňku pod ní - na první prázdnou buňku. Děkuji za řešení.
Matio.

[mike007]

Kód: Vybrat vše

Sub bunka()
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End Sub