Simpel flytte macro

Sub Makro1()

    For n = 1 To Int(Range("A" & Rows.Count). _
                        End(xlUp).Row + 1) / 2
        For i = 1 To 2
            Sheets("Ark2").Cells(n, i).Value = _
            Sheets("Ark1").Cells(2 * n + i - 2, 1).Value
        Next
    Next
     
End Sub

'rettelse.

Sub Makro1()
   
    Sheets("Ark1").Select
   
    For n = 1 To Int(Range("A" & Rows.Count). _
                        End(xlUp).Row + 1) / 2
        For i = 1 To 2
            Sheets("Ark2").Cells(n + 1, i).Value = _
            Sheets("Ark1").Cells(2 * n + i - 2, 1).Value
        Next
    Next
     
End Sub

Perfekt, vil du lægge et svar?

Det virker som det skal, men den skal udbygges, vil du hjælpe med http://www.eksperten.dk/spm/870204

flott,
hvis jeg har tid i ettermiddag skal jeg se på ditt neste spørsmål