Sub plokiandmed()
  Range("b9").Value = Range("d5").CurrentRegion.Cells.Count
    'lahtrite koguarv d5-ga piirnevas plokis
  Range("b10").Value = Range("d5").CurrentRegion.Row
    ' mitmendast reast algab plokk
End Sub