plakken / kopieeren in een macro geeft foutmelding

[shanna]

In een macro staat de volgende regel

Range("C1:D20").Cut
Range("A" & Range("A:A").End(xlDown).Row + 1).Select

Deze werkt goed behalve als de Range A leeg is, dan volgt de foutmelding:

Methode Range van Object_Global is mislukt.

Eigenlijk wil ik dat de macro gewoon doorloopt.

Iemand een idee?

gr

Shanna

 

[Wigi]

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

Wigi

 

[shanna]

Hoi Wigi,

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

er volgt nu een foutmelding:
Methode Paste van klasse Worksheet is mislukt

gr

Shanne

 

[Wigi]

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

Wigi

Dit doet het knippen en plakken, meer heb je niet nodig. Anders had ik dat er al wel bij gezet.

Wigi

 

[shanna]

ik zit nu thuis dus ik kan het niet proberen, wordt volgende week maar hoe heb ik
aan je kunnen twijfelen.

thanks