Dim EX As Excel.Application
Dim WBs As Excel.Workbook
Dim WB As Excel.Workbook
Set EX = CreateObject("Excel.Application")
Set WBs = EX.Workbooks.Open("C:\1\www.XLS")
'Set EX = CreateObject("Excel.Application")
Set WB = EX.Workbooks.Open(pathOL & MessageName)

Ec = WB.Worksheets("ууу").Cells(Rows.Count,  1 ).End(xlUp).Row -  4 
WB.Worksheets("ууу").Range(Cells( 27 ,  1 ), Cells(Ec,  8 )).Copy

Ecs = WBs.Worksheets("www").Cells(Rows.Count,  1 ).End(xlUp).Row +  1 
'Ecs = LastUsedRow()+1
WBs.Worksheets("www").Cells(Ecs,  1 ).Select
WBs.Worksheets("www").Paste
'WB.Save
EX.Workbooks(pathOL & MessageName).Save
'WBs.Save
EX.Workbooks("C:\1\www.XLS").Save
'WB.Close
EX.Workbooks(pathOL & MessageName).Close
'WBs.Close
EX.Workbooks("C:\1\www.XLS").Close
Set WB = Nothing
Set WBs = Nothing
EX.Quit
Set EX = Nothing
'============================================================
Public Function LastUsedRow() As Long
Dim tmpR As Range
Dim arRow( 256 ) As Long
   For Each tmpR In [A65536:AA65536]
       arRow(tmpR.Column) = tmpR.End(xlUp).Row
   Next

   LastUsedRow = WorksheetFunction.Max(arRow)

End Function