使过滤器下拉菜单进入标题 - VBA Excel 2016

Question

当向下滚动时，第1行应该替换标题中的字母，但是使用我的代码它会像正常行一样消失。 如何更改我的代码才能获得此结果？：

（默认Excel 2016 CSV导入）

现有代码：

With ActiveSheet .Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address).AutoFilter End With