AutoFill not working

[LGMan]

Hi,
I'm a bit lost, I have a piece of code that worked, then will not work the next time. No Columns have changed
I'm just trying to concatenate 2 columns and then copy this format to the bottom of the range.

Range("J1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
Selection.AutoFill Destination:=Range(Selection, ActiveCell.SpecialCells(xlLastCell))

Any ideas?
Thanks In Advance

 

[SkipVought]

Hi,

You have not defined the Destination range...

With Range("J1")
    .FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
    .AutoFill Destination:=Range(.Offset(0), .Offset(0, -1).End(xlDown).Offset(0, 1))
End With

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}