Copying and pasting macro

  • Thread starter Thread starter Stav19
  • Start date Start date
S

Stav19

Hi all

I would like to copy and paste values from one sheet to another, I
wasn't sure how to paste certain parts from one spreadsheet to
another, so got around this by selecting everything and pasting it.

Example:

Select cells B1:C17, copy and paste in new sheet from cell A1. (this
bit was ok, and used a name range)

However my problem is then if I want to copy other cells and paste
them after the above,

eg

B21:C27 copying these and pasting them on the new sheet after the end
of the first paste. I've tried recording just this bit but when I
edited the macro it went a bit wrong...

Can anyone help with this?

thanks!!!
 
Something like this maybe? Select the range you want to copy and then run
this macro...

Sub CopySelection()
Dim LastRow As Long
With Worksheets("Sheet2")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Selection.Copy Destination:=.Cells(LastRow, "A")
End With
End Sub

Change the Sheet2 reference to the name of the worksheet you want to copy
the current selection to.

Rick
 
Something like this maybe? Select the range you want to copy and then run
this macro...

Sub CopySelection()
  Dim LastRow As Long
  With Worksheets("Sheet2")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Selection.Copy Destination:=.Cells(LastRow, "A")
  End With
End Sub

Change the Sheet2 reference to the name of the worksheet you want to copy
the current selection to.

Rick










- Show quoted text -
Click to expand...

Thanks for your help rick, I'll try that and see how it goes!
 
Something like this maybe? Select the range you want to copy and then run
this macro...

Sub CopySelection()
  Dim LastRow As Long
  With Worksheets("Sheet2")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Selection.Copy Destination:=.Cells(LastRow, "A")
  End With
End Sub

Change the Sheet2 reference to the name of the worksheet you want to copy
the current selection to.

Rick










- Show quoted text -
Click to expand...

Thanks for your help Rick, I'll give that a try and let you know how
it goes!
 
Back
Top