onderaan een lijst

[shanna]

in cel a1 tot b4 staat data die bij elkaar horen
in cel c1 tot d20 staat ook data die bij elkaar horen
de data van cel c1 tot d20 wil ik onder cel a4 en b4 krijgen
ik heb dit als volgt geprobeerd maar dan wordt de
data van c1 tot d20 geplakt vanaf a4.
dus de dat uit A4 ben ik kwijt, ik kan niet standaard
naar A4 gaan want deze waarde kan varieren
hoe los ik dit op?

Range("C120").Select
Application.CutCopyMode = False
Selection.Cut
Range("A1").Select
Selection.End(xlDown).Select
ActiveSheet.Paste

 

[JanJantje]

Probeer deze eens

Range("C1:D20").Cut
Range("A5").Select
ActiveSheet.Paste

Jantje

 

[shanna]

Dat zou wel gaan indien ik altijd in A5 zou moeten plakken, echter
dat kan varieren.
Ik wil dus naar het de laatste cel van kolom A en dan nog 1 cel lager en
daar in plakken.

gr

Shanna

 

[Demeter]

Eeen aangepast Jan code:

Sub overzetten()

Range("C1:D20").Cut
Range("A" & Range("A:A").End(xlDown).Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

 

[shanna]

Yep dat is hem, thanks

Shanna

 

[Wigi]

Dit is nog ietsje beter

Sub overzetten()
     Range("C1:D20").Cut Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub