Indsæt data

Har du data længere nede end det du kopierer ?
Har du data længere nede end der hvor der skal indsættes ?

Jeg har ikke data længere nede end jeg kopiere og der skal heller ikke sættes data ind efter denne indsættelse (længere nede)..

Koden forudsætter at kolonne A og B har ens antal rækker m. data

Gætter på de skal indsættes fra række 5 eller under evt. data i kolonne AH

b = Sheets("Budget").Cells(65536, "A").End(xlUp).Row
d = Sheets("Data").Cells(65536, "AH").End(xlUp).Row
If d < 5 Then d = 5
Sheets("Budget").Range("A6:B" & b).Copy Sheets("Data").Range("AH" & d)

Fandt løsningen manglede lidt i koden "SELECTION.COPY"

Sheets("Budget").Select
Range("A6:B6).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False

SELECTION.COPY

Sheets("Data").Select
Range("AH5:AH65536").Find(Empty, LookIn:=xlValues).Select
Activesheet.Paste

Så virker den efter hensigten

Lukker