Formatting Subtotal Rows - Resize Range?

[SAMCRO2014]

I am trying to figure out how to resize a range so I can format subtotal lines via a loop. I have no problems with the loop but I am really confused on how the range resize works.

I am searching column F for the word "Total". If that cell contains that word then select columns A to O in that row to be formatted.

Any suggestions?

 

[Tim_Excel_]

Perhaps you can show us your code

 

[SAMCRO2014]

This is what I have so far.

Sub Del_Zero_Totals_Format()


'Set Variables
Dim Ar As Areas
Dim Rng As Range

Dim Previous As Worksheet
Set Previous = ThisWorkbook.Sheets("Previous")

Dim x As Long

'Delete all subtotals with a zero balance and associated data

Set Ar = Range("M2", Range("M" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
For Each Rng In Ar
If Round(Rng.Offset(Rng.Count).Resize(1).Value, 0) = 0 Then Rng.Resize(Rng.Count + 1).EntireRow.Delete
Next Rng

'Define last row of data


Dim LastRow As Long
LastRow = Previous.Cells(Rows.Count, 1).End(xlUp).Row

' Find subtotal rows and change formatting from the bottom to the top if column F contains the word "Total"


For x = LastRow To 2 Step -1

If Cells(x, 6).Value Like "*Total*" Then

 

[SAMCRO2014]

Would it be:

Range(x,6).Offset(,5).Resize(0,15)

 

[SAMCRO2014]

Nope. VBA didn't like it.....sigh........