You could replace you two lines of code with this.

Range("J2").AutoFill Destination:=Range("J2", Cells(Rows.Count, 1).End(xlUp).Offset(0, 9)), Type:=xlFillDefault

Cheers!