Macro til at fordele data ?

Så fik jeg set på lidt macro halløj .. og det var ikke så svært endda. Jeg fik løst mit problem og her er koden. Kan sikkert gøres smartere, men det her virker og det er jo hovedsagen :-)

Sub bimse()

start_læse_rk = 1
slut_læse_rk = 2
antal_rk = slut_læse_rk - start_læse_rk + 1

skrive_rk = 10
For i = start_læse_rk To slut_læse_rk
    ActiveSheet.Range("A" & skrive_rk) = ActiveSheet.Range("A" & i)
    ActiveSheet.Range("B" & skrive_rk) = ActiveSheet.Range("C" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 1) = ActiveSheet.Range("B" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 2) = ActiveSheet.Range("D" & i)
    ActiveSheet.Range("B" & skrive_rk + 2) = ActiveSheet.Range("E" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 3) = ActiveSheet.Range("F" & i)
    ActiveSheet.Range("B" & skrive_rk + 3) = ActiveSheet.Range("G" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 4) = ActiveSheet.Range("H" & i)
    ActiveSheet.Range("B" & skrive_rk + 4) = ActiveSheet.Range("I" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 5) = ActiveSheet.Range("J" & i)
    ActiveSheet.Range("B" & skrive_rk + 5) = ActiveSheet.Range("K" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 6) = ActiveSheet.Range("L" & i)
    ActiveSheet.Range("B" & skrive_rk + 6) = ActiveSheet.Range("M" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 7) = ActiveSheet.Range("N" & i)
    ActiveSheet.Range("B" & skrive_rk + 7) = ActiveSheet.Range("O" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 8) = ActiveSheet.Range("P" & i)
   
    skrive_rk = skrive_rk + 10
Next
End Sub