I appreciate the response, but when I tried that, the line turned yellow and
the macro wouldn't run.

"bpeltzer" wrote:

> Selection.Offset(1, 0).Select
>
> "Loris" wrote:
>
> > In Excel 2002, I need a Macro that will select a range containing data in a
> > spicific column, then move down one row belosw the rand and select all rows
> > from that point to bottom of worksheet and delete those rows. current my
> > Macro has the following lines:
> > Sheets("Supplier").Select
> > Range("A1:R220").Sort Key1:=Range("C2"), Order1:=xlAscending,
> > Key2:=Range _
> > ("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
> > MatchCase _
> > :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
> > DataOption2:=xlSortNormal
> > Range("C1").Select
> > Selection.End(xlDown).Select
> > (XXXXXXXXXXX)
> > Range(Selection, Selection.End(xlDown)).Select
> > Selection.Delete Shift:=xlUp
> > Range("A2").Select
> > Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(5), _
> > Replace:=True, PageBreaks:=True, SummaryBelowData:=True
> > ActiveWindow.SelectedSheets.PrintPreview
> >
> > In place of the (XXXXXXXXXX), I need a command that will move down one row
> > and then continue with the rest of the macro.
> >