Thank you pecoflyer. How would I write it if I also want to delete rows where the value of column D is 0?

I'd never used that particular value of SpecialCells; sounds like just the ticket.

Joflow, the number of incoming worksheets may change every time; but since the program is doing the importing, surely it can count them as it happens?

But if the headers are all the same, this should work too:(I haven't testing this code; something like it should be right, though.)

Thank you Bob. I did wind up using a different code since the value in column A would be the same in all of the headers. I just used:

Sub DeleteRepeatedHeader()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Range("A" & i).Value = "PLANID" Then Rows(i).Delete
Next i
End Sub

Again, I'm no VBA man, but as far as I know the fastest way is to use the auto filter from within a macro. There are examples around.

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post

Thank you.