Замена функции на значение 2 - VBA

Формулировка задачи:

Коллеги, здравствуйте, тему ниже видел, но это не то. Собственно есть столбец на 100 000 ячеек, в котором прописаны формулы. есть отслеживаемое событие (нажатие кнопки на форме), которое должно преобразовать все формулы в значения. Когда делаю это перебором:

                    Листинг программы
                
Private Sub CommandButton2_Click()
Dim Cells As Variant
 
Cells = cellValue
    For Each Cells In Range("B2:B100000")
    Cells.Value = Cells.Value
 
Next

дюже долго работает система. Если ли макрос побыстрее выполняющий данное действие, потому как через "Вставку значений" система за пару секунд решает данную проблему.

Решение задачи: «Замена функции на значение 2»

textual
                            Листинг программы 
                        
Range("B2:B100000").Copy
Range("B2:B100000").PasteSpecial xlValues