I need a formula

[brodos]

Hi everyone!
I have this workbook (attached). What I want is a formula or a macro that will automaticly create a list in the "Total" sheet starting in B2, depending on what options are selected with a "x" sign in the "Options" sheet.
Can anyone help me?

Thanks!

[protonLeah]

Sub get_totals() 
     Dim TotalsRow As Integer, OptionsRow As Integer 
     'Set the starting rows' 
     TotalsRow = 2 
     OptionsRow = 3 
     Worksheets("options").Select 
     While Cells(OptionsRow, 2).Value <> ""       'continue while Col-B has data' 
          If Cells(OptionsRow, 1).Value = "x" Then 
               Worksheets("Total").Range("b" & TotalsRow).Value = Cells(OptionsRow, 2).Value 
               Worksheets("Total").Range("c" & TotalsRow).Value = Cells(OptionsRow, 3).Value 
               TotalsRow = TotalsRow + 1     'select next empty total row only if data was copied' 
          End If 
          OptionsRow = OptionsRow + 1     ' get next options row to test' 
     Wend 
End Sub  

[brodos]

It works perfectly
Thanks!