Sub Button1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim Sit As Object



    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\temp\BOOK2.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
    'xlApp.Visible = True
    xlBook.Sheets(1).Range("A1:C55").Copy ' odakle dokle trebas kopirati nadam se iz shhet 1
    xlApp.DisplayAlerts = False
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sit = xlBook.Sheets("Sheet2") ' Ime sita u postojecem exelu ili broj moze
Sit.Activate
Range("A1").Select

Sit.Paste

Exit Sub
err:
'napisi nesto sam ako se desi greska
End Sub