Sub MgdSubTotals()
'

Dim lngRow As Long, lngTemp As Long

lngRow = 7
lngTemp = lngRow - 1
Sheets("Mgd Props").Select

Do While Range("C" & lngRow) < ""
If Range("C" & lngRow) < Range("C" & lngRow - 1) Then
Rows(lngRow).Insert
Range("F" & lngRow) = "=sum(F" & lngTemp & ":F" & lngRow - 1 & ")"
Range("g" & lngRow) = "=sum(g" & lngTemp & ":g" & lngRow - 1 & ")"
lngRow = lngRow + 1: lngTemp = lngRow
End If
lngRow = lngRow + 1
Loop
Range("F" & lngRow) = "=sum(F" & lngTemp & ":F" & lngRow - 1 & ")"
Range("g" & lngRow) = "=sum(g" & lngTemp & ":g" & lngRow - 1 & ")"

End Sub


"KalliKay" wrote:

I have the following reporting columns:

Prop# Owner Entity Prop Name Rentable SqFt Pkg Spaces

100-0001 OWNER1 PROP1 1,000 50
100-0002 OWNER1 PROP2 2,000 0
100-0003 OWNER1 PROP3 3,000 100

100-0004 OWNER2 PROP1 4,000 25
100-0005 OWNER2 PROP2 5,000 75

100-0006 OWNER3 PROP1 6,000 0

From within an Excel macro I am subtotalling the Rentable SqFt and Pkg Spaces
when the Owner Entity changes. What I need to know now is how to incorporate
double underlining and bolding the subtotals only.

Thanks.