Hi Oshiren,
Firstly thanks for the feedback and delighted that it worked.
With regard to your last comment, I've seen far worse starting points for the code. A couple of specific points:
1. Dim cCell As Range it is simply good practice to formally declare variables. Better still is to set Option Explicit in the VBA preferences as this will force you to do so, which helps to avoid errors caused through inventing variables 'on-the-fly.'
2. Changed your cell variable to cCell since its not good practice to use variables with names of functions or objects (in this case I don't think cell is protected, but just seems to be a good idea).
3. This code "=B2*(" & Mid(cell.Formula, 2, 255) & ")" changed to "=B2*" & cCell.Formula" since without an '=' sign your code actually stripped off the initial digit (which is why you returned a 0 as the answers). The IF statement simply tests the left hand character of the cCell.Formula and if it is '=' removes it. Thinking about this now I think you could easily replace my Right(cCell.Formula, Len(cCell.Formula) - 1) with your Mid(cell.Formula, 2, 255).
Hope this helps.