Excel, mellem 2 ark, svær

Du har måske allerede fået en løsning, men når jeg nu har kigget lidt på en makro,sender jeg den aligevel.

Nedenstående makro skalv have to navngivne områder source og target.
I min test er source defineret til =Ark2!$A$5:$H$28
Target er defineret til =Ark1!$A$4:$J$27.

Konden er:
Sub FlytData()
    Dim rngTarget As Range
    Dim rngSource As Range
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
   
    Set wb = Application.ActiveWorkbook
    Set wsSource = wb.Worksheets("Ark2")
    Set wsTarget = wb.Worksheets("Ark1")
   
    Set rngSource = wsSource.Range("source")
    Set rngTarget = wsTarget.Range("target")
   
    For i = 1 To rngSource.Rows.Count
        If rngSource(i, 5).Value <> 0 Then
            x = rngSource(i, 5).Value
            rngTarget(x, 2).Value = rngSource(i, 1).Value
            rngTarget(x, 7).Value = rngSource(i, 7).Value
        End If
       
    Next
   
End Sub

Takker!!