VBA problem se zavolanim makra/funkce

Zdravim

nahral jsem pres zaznam makra, jak udelat rozsireny filtr

Function makro()

Range("AD1:AD1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range _
("AF1"), Unique:=True

End Function

pak mam tlacitko, ktere provadi ruzne funkce a hrne data do AD sloupce, kde se ma spustit dane makro/funkce. To se stane jen tehdy, kdyz mam pusteny editor Visualu a jedu pres F5/Run. Jakmile opustim editor a spustim primo formular v excelu, tak udela vse, jen ne ten krok s pustenim teto funkce. Mozna ho provede, ale rozhodne nedostanu stejny vysledek co v editoru. Netusite, kde je problem? Jsem VB zacatecnik, takze nemam tucha :/ Uz si nad tim lamu a nevim zaboha, jak to udelat. Predem diky.

Nejsem si jistý, jak to máš. Máš tu funkci

Kód:

---

Function Makro()

---

jako součást událostní procedury nějakého tlačítka na nějakém formuláři, tedy něco jako toto?

Kód:

---

Private Sub Command1_Click()
    'Tvuj kod, ktery hrne data do sloupce AD
    makro  'volani funkce makra
End Sub

---

Rád poradím, budu-li vědět, ale nejsem si jistý, jak to máš udělaný.