Set ws = ThisWorkbook.Sheets(«»ОбъединенныеДанные»»)