fill in cells according to selected optionbutton

[paul_pearson]

Thanks Bakerman

I am confident this is the last part and the workbook is completed

If i run this code below with no entries in the data sheet it brings up an error...can something be added in the code so that if no data is on the sheet it brings up a message "no data to sum" .. this will stop the error

Sub SubTotalize()
   
    With Sheets("XFLOW A")
       .Unprotect Password:="abc"
       .Range("B7:Q" & .Cells(Rows.Count, 2).End(xlUp).Row).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 7, 12, 16), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        With .Range("B" & Rows.Count).End(xlUp)
            .Offset(-1, 1).Resize(2, 16).Interior.ColorIndex = xlNone
        End With
       .Protect UserInterfaceOnly:=True, Password:="abc"
    End With
    
End Sub