Thank you both! I tried both examples with a little tweaking and they were
successes!

"Robbyn" wrote:

Hi all,

With Worksheets("Data")
Set Rng = .Cells(.Rows.Count, "A").End(xlUp)
With Rng
.EntireRow.ClearContents

How would I change the above code so that the data in column A is not
deleted but everything else on the row is deleted?

TIA,

Robbyn