split worksheet into different worksheets based on row content in VBA

Question

enter image description hereSub parse_data() Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow