This macro should do what you want...

Sub SelectNonEmptyCellsBelowActiveCell()
Dim LastCell As Range
On Error Resume Next
Set LastCell = Cells(Rows.Count, ActiveCell.Column).End(xlUp)
Range(ActiveCell.Offset(1), LastCell).SpecialCells( _
xlCellTypeConstants).Select
End Sub

--
Rick (MVP - Excel)


"puiuluipui" wrote in message
...
Hi, how can i select with a macro all cells with data below activecell?
Thanks!