Sub plokiRidadeArv()
  Range("b8").Value = Range("d5").CurrentRegion.Rows.Count
End Sub