Execute macro on next blank cell in column

[MrManBoy]

Hi Team,

Trying to achieve:
I want to be able to run the below macro on the next available blank cell in column D.

Code:

Range("D6").Select
    ActiveCell.FormulaR1C1 = "Not Started"
    Range("D6").Select
    Application.Goto Reference:="R6C4:R6C17"
    Selection.FillRight
    Range("D6").Select
    Selection.End(xlToLeft).Select

Many Thanks for any assistance

 

[njimack]

A single line of code should suffice...

Cells(Rows.Count, 4).End(xlUp).Offset(1).Resize(1, 14) = "Not Started"

 

[MrManBoy]

Hi Neil - Thank you so much this has saved so much time and works perfectly!

Appreciate the help and quick response!