Copy Excel sheet or Excels columns from one sheet and paste in another sheet --- Open Status

'Copy excel sheets

Sub copy_sheets()
Dim eapp As Excel.Application    
Dim wkbk_from As Workbook    
Dim wkbk_to As Workbook    
Dim wksh As Worksheet    
Set eapp = CreateObject("Excel.Application")    

Set wkbk_from = eapp.Workbooks.Open("C:\Documents\Miscellaneous-DT\Excel\a.xlsx")    
Set wkbk_to = eapp.Workbooks.Open("C:\Documents\Miscellaneous-DT\Excel\b.xlsx") eapp.Visible = True    
For Each wksh In wkbk_from.Worksheets wksh.Copy After:=wkbk_to.Worksheets(Worksheets.Count)    
Next wksh
End Sub

'copy excel data in a sheet and place it in same sheet



Set shtToCopy = wkbSource.Sheets("qryQuickLookToExcel").UsedRangeshtToCopy.Copy wkbDest.Sheets(1).Range("A1")