Copy data from Multiple to SINGLE worksheet.

[zebradoby]

i did this..it RESOLVED it.

Sheets("Main").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.FormulaR1C1 = "=NOW()"
Range("C10").Select