Copying between worksheets.

[Hhandson]

I am trying to copy some information from one worksheet using the macro below but am getting error messages. Any ideas?

Sub Copyscenarios()
Sheet1.Activate
Range("A2", "AV60000").Select
Selection.Copy
Application.Workbooks.Open ("C:\Dokumente und Einstellungen\S86QLQM\Desktop\AZAP sales comp proj\Comp struture version 1.xls")
Set xlThisSheet = ThisWorkbook.Worksheets("Assumptions")
xlThisSheet.Activate
xlThisSheet.Cells.Clear
xlThisSheet.Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

 

[Trevor G]

This has ended up in the Access MACRO section you really need the Excel section of the forum.

what you need is something like selecting the currentregion first.

something like this

Sub CopyRegion()

Sheets("Name the sheet").select
range("A2").select
activecell.currentregion.copy
workbooks.open "Path and name of excel workbook including the extension.xlsx"
sheets("Other sheet name").select
Range("A2").select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub