looping thru range extracting data based on character
 

I have data in columns A and B.
They are separated into groups with a text heading starting with an
open bracket [
I want to loop thru the rows and copy the data starting with each
bracket until I hit the next bracket and put them into a series of
columns.
So the first set would go in a different sheet in A and B, the next Set
would go in C and D.
I am able to find the brackets but not sure what to do next.

This is what I have so far just to find each bracket.
Sub getdata()
For I = 22 To 6000 ' find end of data sets
If Left(Cells(I, 1), 1) = "[" Then StartRow = I

Next
End Sub

Any help would be appreciated.