Zoekgebied beperken

[Rob532]

Goedenavond

Ik gebruik een stukje code om een waarde op te halen op een werkblad en dat vervolgens in de kolom K te schrijven van de laatste regel van een ander werkblad.
Dat lukt met de code:
Sheets("Calculatie").Range("K" & Sheets("Calculatie").UsedRange.Rows.Count) = Sheets("Inteligentie").Range("D4")

Echter hij zoekt in werkblad Calculatie binnen alle kolommen. Ik wil graag dat er alleen maar gekeken wordet naar de laatste regel waarin kolom A gevuld is.
Het zal een kleine aanpassing zijn maar het iks mij nog niet gelukt

Bedankt voor het meedenken

 

[Roncancio]

Sheets("Calculatie").Range("K" & Sheets("Calculatie").Range("A" & rows.count).End(xlUp).row) = Sheets("Inteligentie").Range("D4")

Met vriendelijke groet,


Roncancio

 

[Rob532]

Bedankt voor de supersnelle reactie

Het werkt.

Bedankt