Olá amigos estou batendo a cabeça em um código vba, o que eu quero e que quando eu filtre uma coluna por exemplo "A1" ele conte todas as células visíveis, ignore as ocultas e pare de contar quando encontrar a primeira célula vazia e print o valor contado na célula "B12", abaixo o código ele ate funciona mas eu tenho que colocar um range maior que os dados da coluna, e ele acaba contando os em branco do range junto com as visiveis que eu quero.
Sub CountVisRows()
Range("b12").Value = ActiveSheet.Cells(1, 1).Range("A14:A4000").Cells.SpecialCells(xlCellTypeVisible).Count
End Sub