Assuming it's a single-column contiguous range

Sub Tester()
With Range("RM1")
.Cells(2).FormulaR1C1 = _
"=CONCATENATE(LEFT(RC[-2],3))"
Range(.Cells(2), .Cells(.Cells.Count)).FillDown
End With
End Sub

Tim



" VLOOKUP fORMULA" wrote in
message ...
Any body please help....

Is there any way to place the below mentioned formula from the second cell
(second row) of the range "RM1" instead of the first row?



Range("RM1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(LEFT(RC[-2],3))"
Range("RM1").FillDown

Thanks in advance