If it's not in the first row, how we can identify that in which row the header is ?

In the meantime place these line above the error line.

Code:
Do While Application.WorksheetFunction.CountA(.Rows(1)) = 0
    .Rows(1).Delete
Loop