[vba]

Set sh = Sheets("Kompetanseoversikt (2)")

With Sheets("Kompetanseoversikt")

For i = LBound(skift1MF) To UBound(skift1MF)

.Range(.Cells(skift1MF(i), 1), .Cells(skift1MF(i), 8)).Copy _
sh.Range(sh.Cells(5 + i, 1), sh.Cells(5 + i, 8))
Next
End With
[/vba]