Cellen tot einde copieren en plakken als waarde behalve 1e regel

[RdS]

Beste helpers,

In Excel maak ik vaker gebruik van een hoop formule's die een file erg zwaar maken.

Ik zoek een mogelijkheid om copy-paste values te doen, behalve de 1e regel.

Soms heb ik formule's in cell A2,B2 staan, andere keren in cell Z3,AA3 etc.
Een beetje afhankelijk van mijn file kan de 1e formule voorkomen in A2,B2,Z3,AA3.

Ook de range naar de laatst mogelijke cell is belangrijk.

Waar ik naar zoek:
* Copy - past values van selectie behalve 1e regel
* flexibele 1e regel
* variabele laatste cell

Dit is wat ik heb, maar eerlijk gezegd een beetje schaamteloos copy, paste zonder dat ik het echt snap

Range("AO2" & ":" & "AQ" & Range("AN1000000").End(xlUp).Row).Select
Range("AO2" & ":" & "AQ" & Range("AN1000000").End(xlUp).Row).FillDown
ActiveSheet.Calculate
Range("AO3" & ":" & "AQ" & Range("AN1000000").End(xlUp).Row).Copy
Range("AO3" & ":" & "AQ" & Range("AN1000000").End(xlUp).Row).PasteSpecial xlPasteValues

 

[VenA]

De vraag is tegenstrijdig met de macro opname.
Om, behalve de eerste rij met een formule, de formules om te zetten naar waarden kan je zoiets gebruiken.

Cells.SpecialCells(-4123).Offset(1) = Cells.SpecialCells(-4123).Offset(1).Value