help with code error

[dantheman9]

Hi i have the following code (below);

x = 2
Set Rrange = Range(Cells(3, x), Cells(3, x + (k - 1)))
b = numbers
Do Until b = 0
Rrange.Copy
Sheets("TEMPS1").Activate
Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
' testering
Sheets("TEMPS").Activate
[COLOR=red]Cells(1, k).End(xlRight).Select
[/COLOR]vf = ActiveCell.Column
x = x + k
k = vf
 
Sheets("TEMPS").Activate
Set Rrange = Range(Cells(3, x), Cells(3, x + (k - 1)))
b = b - 1
Loop

I think the cell selection is the issue, but don't know how else to select it?

 

[VoG]

Maybe

Cells(1, k).End(xlToRight).Select

 

[Mike Blackman]

Hi,

I doubt its really nescessary to actually select the cell for what your trying to do, try working with the cell without selecting it

As for your problem:

Change:

End(xlRight)

For

End(xlToRight)

 

[dantheman9]

thanks both!

 

[JackDanIce]

As an FYI

Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll

Can be changed to:

Range("B" & Rows.Count).End(xlUp).Offset(1,0).Paste

Rows.Count saves having to remember the last row number and if you're pasting everything then no real need to use PasteSpecial, infact, I think you could reduce the code to:

Rrange.Copy Destination:=Sheets("TEMPS1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)