FillDown - FillLeft - FillRight - FillUp Methods
Sub FillTheCellsUsingMethods() Range("J8").Value = 10 Range("J8:J2").FillUp Range("J8:J14").FillDown Range("J8:C8").FillLeft Range("J8:P8").FillRight End Sub