Dim TempWb As Workbook
Dim BazaSht As Worksheet
Dim iPath As String
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Set BazaSht = ActiveSheet   ' тут вы устанавливаете в переменную ссылку на активный лист, если вам нужен другой лист текущей книги
' нужно использовать конструкцию  Set BazaSht = ActiveWorkbook.Sheets("/ИмяНужногоЛиста/")
iPath = ActiveWorkbook.Path & "\"

Set TempWb = Workbooks.Open(Filename:="itg10.xls", UpdateLinks:=False, ReadOnly:=True)
TempWb.Sheets("Sheet1").Range("A1:C9").Copy  ' а тут явно указан лист "Sheet1" открываемой книги itg10.xls, 
'нужен другой?... Укажите имя другого
BazaSht.Range("G12").PasteSpecial xlValues

TempWb.Close saveChanges:=False
.Calculation = xlAutomatic
.ScreenUpdating = True
End With