Function dhLastColUsedCell(rgColumn As Range) As Variant ' Вывод значения последней непустой ячейки столбца dhLastColUsedCell = rgColumn.Parent.Cells(Rows.Count, _ rgColumn.Column).End(xlUp).Value End Function