VBA code to copy and paste

[rspalding]

Hi,

I need to copy data copy from AD5:AJ6 to the last row in column X to Column R. I've looked at the boards but have not been able to se the help that I need.

Thanks for helping.

Robert

 

[DanteAmor]

There is something confusing in your explanation.
You only want to copy this range: AD5:AJ6
And where do you want to paste it?
You can give an example of where you want to paste it.
That is, if the last row with data in column R is 23, then do you want to paste in cell X23?

Try:

Sub copyandpaste()
  Dim lr As Long
  lr = Range("R" & Rows.Count).End(3).Row   'last row in column X
  Range("AD5:AJ6").Copy Range("X" & lr)
End Sub

 

[RobP]

Hi,

would this do what you need ?

Sub move_data()

lastrow = ActiveSheet.Cells(Rows.Count, "R").End(xlUp).Row
newrow = lastrow + 1
ActiveSheet.Range("AD5:AJ6").Copy Range(Cells(newrow, 18), Cells(newrow + 1, 24))

End Sub

 

[rspalding]

Hi,

would this do what you need ?

Sub move_data()

lastrow = ActiveSheet.Cells(Rows.Count, "R").End(xlUp).Row
newrow = lastrow + 1
ActiveSheet.Range("AD5:AJ6").Copy Range(Cells(newrow, 18), Cells(newrow + 1, 24))

End Sub

Yes this worked by changing ActiveSheet.Cells(Rows.Count, "R" to ActiveSheet.Cells(Rows.Count, "X"

Thanks

 

[RobP]

great thanks for feedback ...

Rob