I need some help with the formula below,

Sub EmailAddresses()

Sheets("Distbun").Activate
Range("C3").Select
Do
If IsNumeric(ActiveCell.Offset(0, -1).Value) Then
ActiveCell.Value = "=Text(B3, "000000") & "@" & "xxx.com""

End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row = 1852
End Sub

I need to select C3 then check C2 to see whether its numberic. If it is i
need the value from C2 to be entered in C3 in the format of" 000000" (6
digits [including 0's at the front if necessary]) then @xxx.com

Then i need it to loop until row 1852 (roughly)

It's doing my nut in as it seems i can't make a cell contents equal the
formula, which in turn will enter the e-mail address!

All help is appreciated!