Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub sbCopyRangeToAnotherSheet()
- 'Method 1
- Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1")
- 'Method 2
- 'Copy the data
- Sheets("Sheet1").Range("A1:B10").Copy
- 'Activate the destination worksheet
- Sheets("Sheet2").Activate
- 'Select the target range
- Range("E1").Select
- 'Paste in the target destination
- ActiveSheet.Paste
- Application.CutCopyMode = False
- End Sub
- Sheets("Sheet1").Range("A1:B10").SpecialCells(xlCellTypeVisible).Copy _
- Destination:=Sheets("Sheet2").Range("E1")
Add Comment
Please, Sign In to add comment