VBA to clear contents of the cell in a column of data in a cell starts with specific word.

You may try this..

Sub ClearCells()
With Range("A:A")
    .AutoFilter field:=1, Criteria1:="Property ID*"
    .SpecialCells(xlCellTypeVisible).Cells.ClearContents
    .AutoFilter
End With
End Sub