Hente liner fra andet ark og indsæt linjenr.

Jeg har fået hjælp til denne makro, der henter data fra et ark til et andet.
Nu kunne jeg godt bruge en lille rettelse/tilføjelse.
Når den henter linjerne vil jeg gerne have at den fanger det linjenr. i arket 2008 som den henter data fra og indsætter dette nr. i kol T i det ark der hentes til.

Sub IgangvSpec_hent_åbne_poster()
    Application.ScreenUpdating = False
    Dim intI As Integer
    Dim intJ As Integer
   
    Sheets("IgangvSpec").Select
    Rows("5:200").Select
    Selection.Delete Shift:=xlUp
   
    intJ = 5
    Do Until (ThisWorkbook.Sheets("IgangvSpec").Cells.Range("B" & intJ) = "")
        intJ = intJ + 1
    Loop

    For intI = 5 To 25000
        If (ThisWorkbook.Sheets("2008").Cells.Range("B" & intI) = ThisWorkbook.Sheets("faktura").Range("faktura_kundenr") _
            And ThisWorkbook.Sheets("2008").Cells.Range("F" & intI) <> "Ja") Then
            ThisWorkbook.Sheets("2008").Cells.Range("A" & intI & ":Q" & intI).Copy ThisWorkbook.Sheets("IgangvSpec").Range("A" & intJ)
            ThisWorkbook.Sheets("IgangvSpec").Range("S" & intJ) = "X"
            intJ = intJ + 1
        End If
    Next intI
   
    Range("Q5:Q200").Select
    Selection.NumberFormat = "#,##0.00"
   
    Range("a5").Select
End Sub