Na, szóval itt van.
A makrót minden nyomtatás előtt le kell futtatni.
A kért adat a középső fejlécbe kerül, minden más fej- és lábléc üressé válik. Ha máshol van szöveg akkor a releváns részt érdemes kivenni a kódból.


Sub ChangeHeader()

Dim intVisible As Integer
Dim rng As Range

For Each rng In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Areas
intVisible = intVisible + rng.Rows.Count
Next rng

intVisible = intVisible - 1 'A fejléc nem számít bele

With ActiveSheet.PageSetup
.LeftHeader = “”
.CenterHeader = "A szûrés utáni sorok száma: " & intVisible
.RightHeader = “”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
End With
End Sub