Hi,

Iam using the following code to Download a excel file from web and copy and paste the contents to the worksheet.
My Issue is every time it opens a new worksheet , instead it needs to paste in the existing worksheet.

Thanks in advance
SAthis

Option Explicit

Public Sub OpenWebXLS()

Dim wkbMyWorkbook As Workbook
Dim wkbWebWorkbook As Workbook
Dim wksWebWorkSheet As Worksheet

Set wkbMyWorkbook = ActiveWorkbook


Workbooks.Open ("http://www.nseindia.com/content/fo/fii_stats_11-Aug-2015.xls")


Set wkbWebWorkbook = ActiveWorkbook
Set wksWebWorkSheet = ActiveSheet

wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count)
'wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "ExistingSheet"

wkbMyWorkbook.Activate
wkbWebWorkbook.Close

End Sub