Макрос по копированию данных из другого фаила

[SAS888]

Если Вам нужно получить в ячейке требуемое значение (а не именно формулу), то можно проще. К тому же применять With ActiveSheet - это совершенно не нужно.

Dim x As Integer, Row2 As Long
    Row2 = 10 'Это для примера
    For x = 1 To Row2
        Cells(x, "A") = Cells(x, "B") & Cells(x, "C")
    Next