Grouping Of Data List Into New Worksheets

The Data Worksheet in the file attached lists information on various software packages a company sells. Each product has an associated category listed in column B. Write a sub that creates a worksheet for each category represented in the list, with the name of the worksheet being the category, such as Business. For each category worksheet, it should enter the product names and their prices in columns A and B, starting in row 4. Each category worksheet should have an appropriate label, such as “Products in the Business category”, in cell A1; it should have labels “Product” and “Price” in cells A3 and B3; and the column width for its column A should be the same as the column width of Column A in the Data worksheet. ( Note that there are only three categories represented in the current data. However, the program should be written so that it Works for any number of categories – and any number of products- that might be present.)

I have the following code, it works properly when I run it for the first time but fails to re-run for the other coming runs.

This is what the data sheet looks like: [URL] .......

Code:
Sub Business()
Dim Data() As String
Dim blnCheck As Boolean
Dim intProdCnt As Integer
Dim i As Integer
Dim wksC As Excel.Worksheet

[Code] ......