Sub data()
Dim tempPath As String
Dim wbkTab As Workbook
Dim wbkTemp As Workbook
Dim shtTab As Worksheet
Dim shtTemp As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

tempPath = "D:\òåìïåðàòóðà.xls"

Set wbkTemp = ThisWorkbook
Set shtTemp = wbkTemp.ActiveSheet
Set wbkTab = Application.Workbooks.Open(tempPath)
Set shtTab = wbkTab.Worksheets("ÿíâàðü")

shtTab.Cells(4, 1).Copy shtTemp.Cells(6, 1)
shtTab.Cells(5, 1).Copy shtTemp.Cells(7, 1)
shtTab.Cells(6, 1).Copy shtTemp.Cells(8, 1)
shtTab.Cells(7, 1).Copy shtTemp.Cells(9, 1)
shtTab.Cells(8, 1).Copy shtTemp.Cells(10, 1)
shtTab.Cells(9, 1).Copy shtTemp.Cells(11, 1)
shtTab.Cells(10, 1).Copy shtTemp.Cells(12, 1)
shtTab.Cells(11, 1).Copy shtTemp.Cells(13, 1)
shtTab.Cells(12, 1).Copy shtTemp.Cells(14, 1)
shtTab.Cells(14, 1).Copy shtTemp.Cells(15, 1)
shtTab.Cells(15, 1).Copy shtTemp.Cells(16, 1)
shtTab.Cells(16, 1).Copy shtTemp.Cells(17, 1)
shtTab.Cells(17, 1).Copy shtTemp.Cells(18, 1)
shtTab.Cells(18, 1).Copy shtTemp.Cells(19, 1)
shtTab.Cells(19, 1).Copy shtTemp.Cells(20, 1)
shtTab.Cells(20, 1).Copy shtTemp.Cells(21, 1)
shtTab.Cells(21, 1).Copy shtTemp.Cells(22, 1)
shtTab.Cells(22, 1).Copy shtTemp.Cells(23, 1)
shtTab.Cells(23, 1).Copy shtTemp.Cells(24, 1)
shtTab.Cells(24, 1).Copy shtTemp.Cells(25, 1)
shtTab.Cells(25, 1).Copy shtTemp.Cells(26, 1)
shtTab.Cells(26, 1).Copy shtTemp.Cells(27, 1)

wbkTab.SaveAs
wbkTab.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub