Excel Programming – VBScript Advanced

Creating a VBScript to update tables from a spreadsheet:

For RowCount = 2 To Worksheets(“Data”).UsedRange.Rows.Count() + 1        If Worksheets(“Data”).Cells(RowCount, 1) = cmbYear.Text Then            For tables = 0 To 2                If Worksheets(“Data”).Cells(RowCount, 6) = servicetypes(tables) Then                    For brands = 0 To 4                        If Worksheets(“Data”).Cells(RowCount, 5) = arrbrands(brands) Then                            For salestage = 0 To 2                                If CInt(Left(Worksheets(“Data”).Cells(RowCount, 9), 1)) > 0 Then                                        Month(tables, brands, salestage) = Month(tables, brands, salestage) + Worksheets(“Data”).Cells(RowCount, salestage + 21)                                        Worksheets(“FCQ1”).Cells(months(tables, salestage), brands + 4) = Month(tables, brands, salestage)                                 For totalmonthscount = 0 To 2                                        totalmonthsarr(tables, brands, salestage, totalmonthscount) = totalmonthsarr(tables, brands, salestage, totalmonthscount) + Worksheets(“Data”).Cells(RowCount, totalmonths(salestage, totalmonthscount))                                        Worksheets(“FCQ1”).Cells((months(tables, salestage)) + totalmonthscount, brands + 4) = totalmonthsarr(tables, brands, salestage, totalmonthscount)                                 Next                                End If                            Next                         End If                    Next                End If            Next        End If    Next