'последняя ячейка на листе
LastRow = ActiveWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
'Количество видимых ячеек в колонке
VisibleCellsCount = ActiveWorkbook.ActiveWorksheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
'Работа с объединенными ячейками (MergeCells)
isMergeCell = Cells(2, 1).MergeCells 'True - ячейка является объединенной
intMergeRows = Cells(3, 1).MergeArea.Rows.Count 'количество строк в объединенной ячейке
intMergeCols = Cells(j, 1).MergeArea.Columns.Count 'количество столбцов в объединенной ячейке
'Встречается ли слово "Итог" в ячейке (True - встречается)
bnSearchResult = Not IsError(Application.Search("Итог", Cells(1, 1)))
'получаем имя колонки по её номеру
Function GetColNameByNumber(col As Long)
GetColNameByNumber = Split(Cells(1, col).Address, "$")(1)
End Function