Duplicate heading rows problem

[Imrkhp]

I have merged 50 excel files in one file. Problem is that, there are 50 heading rows in my new created file. How I delete all heading rows except first.

 

[MickG]

Assuming the headers can be based on the first 6 columns in row1.
Try this:-

[COLOR=navy]Sub[/COLOR] MG22Oct41
[COLOR=navy]Dim[/COLOR] Lst [COLOR=navy]As[/COLOR] [COLOR=navy]Long,[/COLOR] Txt [COLOR=navy]As[/COLOR] [COLOR=navy]String,[/COLOR] n [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
Lst = Range("A" & Rows.Count).End(xlUp).Row
Txt = Join(Application.Transpose(Application.Transpose(Range("A1").Resize(, 6))), ",")
[COLOR=navy]For[/COLOR] n = Lst To 2 [COLOR=navy]Step[/COLOR] -1
   [COLOR=navy]With[/COLOR] Range("A" & n)
        [COLOR=navy]If[/COLOR] Txt = Join(Application.Transpose(Application.Transpose(.Resize(, 6))), ",") [COLOR=navy]Then[/COLOR]
                 .EntireRow.Delete
        [COLOR=navy]End[/COLOR] If
   [COLOR=navy]End[/COLOR] With
[COLOR=navy]Next[/COLOR] n
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick