End(xlDown) Issue


P

Pistolade

No matter what I do I just cant get it to go to the right position. I
it worked correctly the macro would copy cells A2:O33, copy them
activate sheet "Variables QS", Then select the next open cell in colum
B and paste the earlier selection.

That is it. and I just cant get it to work, I never had this issu
before.

Heres the code im using:


Code
-------------------

Sub SavingTable()
'
' SavingTable Macro
'
'
Range("A2:O33").Select
Selection.Copy
Sheets("Variables QS").Select
Range("B1").End(xlDown).Offset(-1,0).Select
ActiveSheet.Paste
Sheets("Variables").Select
Range("G1").Select
Selection.Copy
Sheets("VariablesQS").Select
Range("A1").End(xlDown).Offset(-1,0).Select
ActiveSheet.Paste
End Sub
 
Ad

Advertisements

L

L. Howard

No matter what I do I just cant get it to go to the right position. If

it worked correctly the macro would copy cells A2:O33, copy them,

activate sheet "Variables QS", Then select the next open cell in column

B and paste the earlier selection.



That is it. and I just cant get it to work, I never had this issue

before.



Heres the code im using:





Code:

--------------------



Sub SavingTable()

'

' SavingTable Macro

'

'

Range("A2:O33").Select

Selection.Copy

Sheets("Variables QS").Select

Range("B1").End(xlDown).Offset(-1,0).Select

ActiveSheet.Paste

Sheets("Variables").Select

Range("G1").Select

Selection.Copy

Sheets("VariablesQS").Select

Range("A1").End(xlDown).Offset(-1,0).Select

ActiveSheet.Paste

End Sub
Pistolade
Try to work this into your code, no need to select.

Range("A2:O33").Copy Sheets("Variables QS").Range("B" & Rows.Count).End(xlUp)(2)


Regards,
Howard
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top