Filter and clear contents from visible cells in a single column

[[email protected]]

Good day, Gurus.

How would I modify the code below to clear contents of visible cells in column AJ (field 36) instead of deleting the visible rows.

Range("A19").AutoFilter Field:=1, Criteria1:="YYY"
Set tbl = Range("A1").CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count, _
    tbl.Columns.Count).Delete
ActiveSheet.AutoFilterMode = False

Thanks in advance for any help you can offer.