Beautiful! Thank you!!!!!!!

"bpeltzer" wrote:

> Rows("1:1").Select
> Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Delete
>
> "Tony P." wrote:
>
> > Okay, I am self taught so bear with me while I try to explain. I pull
> > data files from a retailer's system that come back with header information.
> > The header can take up anywhere from 4-50+ rows. Column A is always blank in
> > the data file header. I am trying to write a macro that deletes these data
> > file headers without deleting my spreadsheet column headers. Here is what I
> > have so far, but this deletes my column headers as well:
> >
> > Rows("1:1").Select
> > Range(Selection, Selection.End(xlDown)).Delete
> >
> > I know there has to be a way to make the selection go back up one row before
> > I delete but I sure cannot figure out how. Any help is much appreciated!
> >
> > Tony