How to selectively clear cells in a column

[ungers]

I have had to copy a column of dates to a new column to extract the month and be able to make subtotals based on each month.

Now I am trying to tidy up the column by removing all the cells containing the month and leave behind the subtotals.

I have got a little way there using:

lastrow2 = Range("A1").End(xlDown).Row
With Range("A1:A" & lastrow2)
Set RngFnd = .Find(Total).
Set rngDelete = .ColumnDifferences(Comparison:=RngFnd)
rngDelete.ClearContents

But it only clears the cells down to the first subtotal so how can I get this carry on?

Alternatively I could use code to find the subtotal, and then cut and paste it into the next column over if that would be easier?

Hope somone can help with this?

Cheers!

 

[jdraw]

This is an Access forum. Perhaps you'd have more luck on a forum directed more at spreadsheets or Excel.

 

[Brianwarnock]

I have replied on your other thread.

Brian