VBA-dynamisches Autofilterfield bei Möglichkeit von leeren Spalten nach links

[Howdegen]

Hallo Leute,

ich habe hier einen VBA code der mir prima meine Liste in der Spalte nach Einträgen filtert, die eine gesuchte Überschrift trägt.

---

Code:

Sub Schaltfläche1_Klicken()
 
ActiveSheet.Rows("1:1").AutoFilter
Spalte = Cells.Find(What:="gesuchterÜberschriftName").Column
ActiveSheet.Range("$A$1:$J$200").AutoFilter Field:=Spalte, Criteria1:="Hallo"

 
End Sub

---

Problem: leider funktioniert dieser Code natürlich nur wenn der erste Eintrag in der Spalte A beginnt. Gibt es vielleicht eine Möglichkeit um Zellen auf ihren "Filtermode" zu überprüfen?

vielleicht möchte mir ja jemand helfen,
vielen Dank