Loop til at kopiere data til et andet ark indtil den møder et tom felt

Rem Anbringes under arket DATA / Vis programkode
Rem ============================================
Dim DATA As Worksheet
Dim antalRæk As Long

Dim TAL As Worksheet
Public Sub TestOgFlyt()
    Application.ScreenUpdating = False
   
    Set TAL = ActiveWorkbook.Sheets("TAL")
    Set DATA = ActiveWorkbook.Sheets("DATA")
    flag = False
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 5 To antalRæk
        If Range("P" & ræk) <> "" Then
            If Range("D" & ræk) <> "" And Range("E" & ræk) <> "" Then
                kopierTilTal Range("P" & ræk), "F5"
                kopierTilTal Range("D" & ræk), "B5"
                kopierTilTal Range("E" & ræk), "D5"
           
                indsætRække "5:5"
            End If
        End If
    Next ræk
   
    Application.ScreenUpdating = True
End Sub
Private Sub kopierTilTal(værdi, mål As String)
    TAL.Activate
    With TAL
        .Range(mål).Value = værdi
    End With
   
    DATA.Activate
End Sub
Private Sub indsætRække(foranRække)
    TAL.Activate
    With TAL
        .Rows(foranRække).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End With
   
    DATA.Activate
   
End Sub

Takker Super! :)

Selv tak..