Converting Data into Text Using Text to Column with VBA

[razgra1z]

Hello All,

Following VBA code converts data in column H into text. But it only works on column H, how can we update this code so that it can work on active column or active cells range. Thank you.

Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

 

[razgra1z]

In my data (the screenshots thay i've shared) after every 50 rows there is blank row. One thing I've observed is that when i remove all blank rows from top and in-between the data then this code works fine. But when there are few blank rows on top and in-between the data this code offsets the column upwards by one row.

 

[Alex Blakenburg]

Can you supply an xl2bb copy of the data, so that we can try to reproduce the problem at our end ?
(Or a public link to a copy of the file)