Delete Rows - Must be dynamic

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

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

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