Trying to get rid of select

[jwburritt]

Hello: I'm trying to get rid of select on the following bit of code.

This works:

Range(ActiveCell.End(xlToRight), ActiveCell.Offset(0, 7).End(xlDown)).Cut
ActiveCell.End(xlToRight).Select
ActiveSheet.Paste


But when I try the following, I get Object Doesn't Support this property or method error:

Range(ActiveCell.End(xlToRight), ActiveCell.Offset(0, 7).End(xlDown)).Cut
ActiveCell.End(xlToRight).Paste


When I try the following, I get Application-defined or object-defined error:

Range(ActiveCell.End(xlToRight), ActiveCell.Offset(0, 7).End(xlDown)).Cut
Range(ActiveCell.End(xlRight)).Select
ActiveSheet.Paste

I've tried a few more and can't get it to work!

The macro is in my personal.xlsb.

Any help would be greatly appreciated!

 

[sykes]

Not sure about your actual code, but ...

Rather than "select, cut and paste", try to use the syntax One.thing=Another.thing
For example,

Sheets("Sheet1").Range("C5").value = Sheets("Sheet2").Range("A15").value

then, if you really want the original range emptied...

Sheets("Sheet2").Range("A15").value = ""

or

Sheets("Sheet2").Range("A15").Clearcontents

 

[dmt32]

Hi,
untested but see if this update to your code does what you want

Dim Rng As Range
Set Rng = Range(ActiveCell.End(xlToRight), ActiveCell.Offset(0, 7).End(xlDown))
Rng.Cut Rng.End(xlToRight)

Dave

 

[jwburritt]

Great, thanks. Works perfectly!

 

[dmt32]

Great, thanks. Works perfectly!

welcome thanks for feedback

Dave