Macr: If cell = ___, paste it into another cell

[Slowy]

i have a phone log where B1 contains the persons name.
b2 shows header info, b3 is data
i need to insert a formula into C3 that will cut from b1 and paste into c3.

the formula i have so far (that does not work) is below

Range("A3").Select
ActiveCell.FormulaR1C1 = "=IF(LEFT(r[-2]c[1],4)="" Ext"",""(Range(""r[-2]c[1]"").Select Selection.Copy Range(""r[-3]c[1]"").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation: =xlNone, SkipBlanks :False, Transpose:=False)"","""")"
Selection.AutoFill Destination:=Range("a1:a" & Range("b" & Rows.Count).End(xlUp).Row)

i need the formula to copy down as well for everybody on the list

thank you for your time

 

[Slowy]

this is the formula we were using, however, b1 will be deleted later on. so.. i need my THEN (in bold below) to be a copy and paste function

Range("A3").Select
ActiveCell.FormulaR1C1 = "=IF(LEFT(r[-2]c[1],4)="" Ext"", r[-2]c[1],"""")"
Selection.AutoFill Destination:=Range("a3:a" & Range("b" & Rows.Count).End(xlUp).Row)

 

[VoG]

Try

With Range("a3:a" & Range("b" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = "=IF(LEFT(r[-2]c[1],4)="" Ext"", r[-2]c[1],"""")"
    .Value = .Value
End With

 

[Slowy]

you sir, are THE man

thank you so much!!!