VBA - kopiere celler

tja.. fandt selv en holdbar løsning:

Sub CopyValues() 'kopier værdier til rigtig faneblad
Dim rCell As Range, rCell2 As Range, sValue As String, wks As Worksheet, wks2 As Worksheet

Set wks = Worksheets("Ark1")
Set wks2 = Worksheets("Ark2")

    sValue = "110"
    For Each rCell In wks.Range("B:B")
        If rCell.Value = sValue Then
            For Each rCell2 In wks2.Range("B:B")
                If rCell2.Value = "" Then
                    wks.Cells(rCell.Row, 4).Copy Destination:=wks2.Cells(rCell2.Row, 2) ' Kontonr
                    wks.Cells(rCell.Row, 3).Copy Destination:=wks2.Cells(rCell2.Row, 3) ' Dato
                    wks.Cells(rCell.Row, 5).Copy Destination:=wks2.Cells(rCell2.Row, 6) ' Beskrivelse
                    wks.Cells(rCell.Row, 6).Copy Destination:=wks2.Cells(rCell2.Row, 9) ' Beløb
                    Exit For
                End If
            Next
        End If
    Next rCell
   
End Sub