Tage kolonneoverskrifter med .

Jeg har for noget tid siden fået nedenstående kode af Supertekst herinde fra og den virker helt fint.

http://www.eksperten.dk/spm/777533

Men jeg ville mægtig gerne have den til også at tage kolonneoverskrifterne med. Altså skal den ud over at hente de data der passer med min parameter og tage række 1 med. Hvordan tilretter jeg nedenstående så den også tager kolonne overskriften med.

Rem Version 2
Rem =========
Const fil3Sti = "S:\Okonomi\Projektoverblik\Projekt_timer\Projekt opfølgning\Bogforte_timer_hist.xls" 'TILPASSES
Dim ræk1, xls
Public Sub hentData2()      '------> kaldes fra fil1 Alt+F8 - Afspil / eller opret knap
Rem slet gl. indhold i fil1 / Ark1
    With ActiveWorkbook.Sheets(6)
        .Range("A1:Z65500").ClearContents
    End With
   
Rem hent parameter i den active celle (hvorsomhelst)
    If ActiveWorkbook.Sheets(2).Cells(5, 2) <> "" Then
      ræk1 = 1
      hentFraFil2 ActiveWorkbook.Sheets(2).Cells(5, 2)
    End If
   
    lukfil2
End Sub
Private Sub hentFraFil2(param)
Dim celle2
    Set xls = CreateObject("Excel.Application")
    With xls
        .Workbooks.Open fil3Sti
        For ræk2 = 1 To 65500
            celle2 = .Cells(ræk2, 1)
Rem test om tom celle i kolonne A - hvis Ja - afslut
            If celle2 = "" Then
                lukfil2
                Exit Sub
            Else
                If celle2 = param Then
                    .Range(CStr(ræk2) + ":" + CStr(ræk2)).Select
                    .Selection.Copy

Rem indsæt den fundne række på Ark1 (Fil1)
                    ActiveWorkbook.Sheets(6).Activate
                    Cells(ræk1, 1).Select
                    With Selection
                        Paste
                    End With
                                       
                    ræk1 = ræk1 + 1
                End If
            End If
        Next ræk2
    End With
End Sub
Private Sub lukfil2()
On Error Resume Next
    xls.Application.DisplayAlerts = False
   
    xls.ActiveWorkbook.Close
    xls.Application.Quit
    Set xls = Nothing
End Sub