sæt data fra ark1 over i ark2 med en automatisk skillerække

Hvis du sorterer dine data, kan der nok laves en makro til opgaven

jeg er godt klar over at det måske kunne laves i en makro, det var fordi jeg ikke ved hvordan at jeg spurgte:)

Linie med tekst mellem hver gruppe, er det en linie du efterfølgende udfylder manuelt, eller skal makro kopiere den med over ?

det er en makro som skal udfylde den, jeg havde tænkt mig de overskrifter som står i række 1 feks. gruppe/navn/nr

prøv denne:

Sub Flyt()
Set sh1 = Sheets("Ark1") 'ret til aktuel navn hvor data hentes fra
Set sh2 = Sheets("Ark2") ' ret til aktuel navn hvor data skal kopieres til
rk1 = sh1.Cells(1000, "A").End(xlUp).Row

sh2.Range("A1:C1000") = "" ' sletter data i Ark2 inden nye skrives

header = sh1.Range("A1:C1")
sh2.Range("A1:C1") = header

For t = 2 To rk1
If sh1.Cells(t, 1) <> sh1.Cells(t - 1, 1) Then sh2.Range("A" & rk2 + 1 & ":C" & rk2 + 1) = header
rk2 = sh2.Cells(1000, "A").End(xlUp).Row + 1
sh1.Range("A" & t & ":C" & t).Copy sh2.Range("A" & rk2 & ":C" & rk2)

Next

End Sub

ser ud til at det er noget jeg kan bruge:) takker

velbekom