VS 2008 Excel Add-In - Copy worksheet between workbooks

With Globals.ThisAddIn.Application
 Dim wb1_last As String
 Dim wb1_name As String
 wb1_last = "Sheet3" ' last sheet name in destination workbook
 wb1_name = .ActiveWorkbook.Name 'name of this workbook
 
 'declare and open source workbook to copy from
 Dim wb2 As Excel.Workbook
 wb2 = .Workbooks.Open(My.Settings.pathExamForm) 'open source wb
 
 .Goto(.ActiveWorkbook.Sheets("2009").Range("B2"))
 .ActiveWorkbook.Sheets("2009").Cells.Select()
 .ActiveWorkbook.Sheets("2009").Range("B2").Activate()
 'copy worksheet from source to destination
 .ActiveWorkbook.Sheets("2009").UsedRange.Select()
 .ActiveWorkbook.Sheets("2009").Selection.Copy()
 .Workbooks(wb1_name).Sheets("Sheet1").Select()
 .ActiveSheet.Paste()
 
End With

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

With Globals.ThisAddIn.Application
 .ScreenUpdating = False 'turn off screen updating
 Dim ws_name As String
 Dim wb1_name As String
 
 'create new worksheet to hold copyied data
 .ActiveWorkbook.Sheets.Add(After:=.Sheets(.Sheets.Count))
 ws_name = Me.editSheetName.Text 'get name
 .ActiveSheet.name = ws_name 'set name
 wb1_name = .ActiveWorkbook.Name 'name of this workbook
 
 'declare and open source workbook to copy from
 Dim wb2 As Excel.Workbook
 wb2 = .Workbooks.Open(My.Settings.pathExamForm) 'open source wb
 .ScreenUpdating = True ' turn it back on
 .Goto(.ActiveWorkbook.Sheets(My.Settings.defaultSheet).Range("B2"))
 .ActiveWorkbook.Sheets(My.Settings.defaultSheet).Cells.Select()         .ActiveWorkbook.Sheets(My.Settings.defaultSheet).Range("B2").Activate()
 
 'copy worksheet from source to destination
 .ActiveWorkbook.Sheets(My.Settings.defaultSheet).UsedRange.Select()
 .ActiveWorkbook.Sheets(My.Settings.defaultSheet).UsedRange.Copy()
 
 'paste worksheet
 .Workbooks(wb1_name).Sheets(ws_name).activate()
 .ScreenUpdating = True 
 'have to turn it back on before copying or images didn't copy correctly            
 .ActiveSheet.Paste() 'paste
 .ActiveWorkbook.Sheets(ws_name).UsedRange.RowHeight = 15
 'for some reason row heights were changing after pasting
 .Goto(.ActiveWorkbook.Sheets(ws_name).Range("A1"))
 
 'clean up
 .Application.DisplayAlerts = False
 wb2.Close(False)
 .Application.DisplayAlerts = True
 wb2 = Nothing
 
End With

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38: