Dim i As Byte, avarTMP() As Variant
Dim lngFRow As Long, lngLRow As Long
For i =  1  To  12 
    With Workbooks(i & ".xls").Worksheets( 1 )
        avarTMP = Range(.Cells( 1 ,  1 ), .Cells(.Cells(.Rows.Count,  1 ).End(xlUp).Row,  3 )).Value
        With Workbooks("Итог.xls").Worksheets( 1 )
            lngFRow = .Cells(.Rows.Count,  1 ).End(xlUp).Row +  1 
            lngLRow = lngFRow + UBound(avarTMP,  1 ) -  1 
            Range(.Cells(lngFRow,  1 ), .Cells(lngLRow,  3 )) = avarTMP
        End With
    End With
Next i

lngFRow =  10 
For i =  1  To  12 
    With Workbooks(i & ".xls").Worksheets( 1 )
        avarTMP = Range(.Cells( 1 ,  1 ), .Cells(.Cells(.Rows.Count,  1 ).End(xlUp).Row,  3 )).Value
        With Workbooks("Итог.xls").Worksheets( 1 )
            lngLRow = lngFRow + UBound(avarTMP,  1 ) -  1 
            Range(.Cells(lngFRow,  1 ), .Cells(lngLRow,  3 )) = avarTMP
        End With
    End With
    lngFRow = lngLRow +  1 
Next i