Kopiering af data i en række via VBA/Markro til andet regneark

Ja - det kan det sagtens.

Smider kode om 5 min.

Sub copyRow()
    Dim r1, r2 As Range
    Dim org_wks, wks As Worksheet
   
    Set org_wks = ActiveSheet
    Set r1 = Rows(ActiveCell.Row)
   
    ' Find sidst brugte kolonne
    Set wks = Worksheets("Ark2")
    wks.Activate
    Range("A65536").Select
    If Selection = "" Then Selection.End(xlUp).Select
    wks.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

    ' Sæt r2 til destination
    Set r2 = Rows(ActiveCell.Row)

    r1.Copy r2
   
    org_wks.Activate
End Sub

Sorry - blev lige fanget af en tlf, så det var vist 5 IT minutter :-)

Super den virker som den skal. Takker