copy and paste

[k_babb]

Hi can someone help with this macro all i want to do is copy all of sheet 2 in wb1 open an excel file wb2 and paste into wb2 the problem is wb2 has headers in it so i want to paste every column starting at row 2 here is the code i have so far works fine up till the paste part

Sub copysheet()
Static wb2path As String: wb2path = Application.GetOpenFilename("excel files, *.xls*")
Static wb1 As Workbook: Set wb1 = ActiveWorkbook
Static wb2 As Workbook: Set wb2 = Workbooks.Open(wb2path)

wb1.Activate
  Sheets("Sheet2").Select
    Cells.Select
    Selection.Copy
    wb2.Activate
    Sheets("Sheet1").Cells(2, 1).Select
    ActiveSheet.Paste
 
End Sub

 

[VoG]

Try

wb1.Sheets("Sheet2").UsedRange.Copy Destination:=wb2.Sheets("Sheet1").Cells(2, 1)