Range("K1").Select
For N = 0 To ActiveSheet.UsedRange.Rows.Count
If Len(ActiveCell.Offset(0, 0).Value) = 0 And _
Len(ActiveCell.Offset(1, 0).Value) = 0 And _
Len(ActiveCell.Offset(2, 0).Value) = 0 Then
Rows(ActiveCell.Offset(2, 0).Row & ":" & ActiveCell.Offset(2
0).Row).Select
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
Next

--
Message posted from http://www.ExcelForum.com