ClearContents function is clearing unselected cells

[ndbwhunter]

I am horrible with VB and I'm struggling to find out why this macro is clearing cells that aren't included in the specified ranges. Here is an example of the code:

Range("J6:J10", "J12:J17").ClearContents
Range("J19:J24", "J26:J31").ClearContents
Range("J33:J38", "J40:J45").ClearContents
Range("J47:J52", "J54:J59").ClearContents
Range("J61:J66").ClearContents

Each of the ranges above are totaled in the row below (totals in 11,18,25,32,39,46,53,60,67). When the macro runs, the totals in rows 11,25,39, and 53 are cleared, even though they aren't included in the range. This is a very large spreadsheet, so changing them individually will take some time. Is there an easier solution to this issue?

Does this make sense?

Appreciate any help that I can get.

Ryan

[JimBobBowie]

Try this, You were trying to clear two ranges together and they were combining.

Please Login or Register  to view this content.

JimBobBowie

[ndbwhunter]

Thanks, JimBobBowie. I figured that would work, but is that the easiest option? This is a very large spreadsheet and it will talke quite a while to make all those changes.

[romperstomper]

You can do it in one pass:

Please Login or Register  to view this content.

[ndbwhunter]

You can do it in one pass:

Please Login or Register  to view this content.

And this one won't combine the ranges?

[romperstomper]

Nope. Try it.

[ndbwhunter]

Thanks for the help!