Ok heres the formula part in vb 6 code.
VB Code:
  1. [i]ActiveCell[/i].Formula = Sheet2.Cells(1, 1).Value