VBA - Texttocolumns- Loop through currentregion

[krshnn]

My requirement is that I have a range of cells which begins in B4 and ends in R507 (R507 is dynamic ; It could be s557 or af201 in another report).
I want to do text to columns vba to each used columns

Currently I'm writing code in this fashion which is pretty rudimentary and without loop
Range("B4").Select
Range(Selection, Selection.End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True
Range("c4").Select
Range(Selection, Selection.End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True
Range("d4").Select
Range(Selection, Selection.End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True
Range("e4").Select
Range(Selection, Selection.End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True

Basically, I want the above code in a loop wherein it starts in B4 column and ends in last used column.

And btw, is there an efficient way to select cells from start of the range to end of the range.
I'm currently writing two lines of code to achieve that objective.
Range("B4").select
Range(selection,selection.end(xldown)).select
I would like the above two lines of code in a single code.

Thanks in advance.

 

[mohadin]

Might helps

Sub tester()
    Dim i&
    For i = 2 To Cells(4, Columns.Count).End(xlToLeft).Column
        Range(Cells(4, i), Cells(4, i).End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True
    Next
End Sub

 

[krshnn]

Bro thanks for your assistance. It worked. But I made slight tweaks to avoid errors while executing

Sub tester()
Dim i As Integer

On Error Resume Next
    For i = 2 To Cells(4, Columns.Count).End(xlToRight).Column
        Range(Cells(4, i), Cells(4, i).End(xlDown)).TextToColumns , xlDelimited, xlTextQualifierDoubleQuote, True, True
    Next
On Error GoTo 0

End Sub

 

[mohadin]

Great
And thank you for the feed back
Be happy And safe