Look after your LLCs please

Sub Macro1()

Dim lrow As Integer
Dim i As Integer

lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(lrow, 1)).TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1),
Array(5, 1)), _
TrailingMinusNumbers:=True
Columns(1).Insert

For i = 1 To lrow
If Not IsEmpty(Cells(i, 2)) Then
Range(Cells(i, 2), Cells(i, 2).End(xlToRight)).Copy
Cells(Rows.Count, 1).End(xlUp).PasteSpecial Transpose:=True
End If
Next i

End Sub

wrote in message
oups.com...
Hi all,

I've gotten some really great help here before and I'm hoping I'll be
able to get some again because I'm at wits end. I'm trying to get a
script to do text to rows. The following is how my spread sheet
looks...a few hundred rows of cells with data points separated by
commas:


Accel Partners, Weber Capital Management, LLC, Invesco Private Capital,

MeriTech Capital Partners, Oak Investment Partners, Technology
Crossover Ventures, Venrock Associates, Doll Capital Management,
Telefonos de Mexico SA de CV (NYSE:TMX), Whitman Capital, LLC, AT&T
Inc. (NYSE:T), Alcatel (ENXTPA:CGE), Shell Internet Ventures BV,
Pilgrim Baxter Hybrid Partners, Lake Street Capital LLC


I'm looking for each one to be on separated onto it's own row, i.e.


accel partners
weber capital management
invesco private capital
etc.


Can someone please help? i've been staring at this for over an hour now

and getting nowhere fast! Thanks so much in advance!!