Sub Ìàêðîñ1()
'
' Iae?in1 Iae?in
'
' Ni?aoaiea eeaaeo: Ctrl+q
'
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = False
    Dim b As Integer, b2 As Integer, c As Integer, d As Integer
    b = 1
    b2 = 646
    c = Sheets("process" ;) .Cells(1, 27)
    d = Sheets("total" ;) .Cells(1, 1)
    Dim a As Integer
    a = 5
    For x = Sheets("list" ;) .Cells(3, 2) To Sheets("list" ;) .Cells(4, 2)
    Range(Sheets("list" ;) .Cells(x, b), Sheets("list" ;) .Cells(x, b2)).Select
    Selection.Copy
    Range(Sheets("list" ;) .Cells(a, b), Sheets("list" ;) .Cells(a, b2)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False
    Range(Sheets("process" ;) .Cells(2, 23), Sheets("process" ;) .Cells(b, 26)).Select
    Selection.Copy
    Range(Sheets("total" ;) .Cells(d, 2), Sheets("total" ;) .Cells(d + c, 5)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False
    ActiveWorkbook.Save
    Next x
End Sub