code to return last cell in row containing data

[tbird]

I have code below that I need to modify.

Sub GroupTranspose()
    Dim FromRowA As Long
     Dim ToRow As Long
    Dim Col As Integer
    '----------------------------------
    LastLine = Worksheets("Sheet1").UsedRange.Rows.Count
    ToRow = 1
    For FromRowA = 2 To LastLine
        For Col = 3 To 33
            Y = Worksheets("Sheet1").Cells(FromRowA, Col).Value
            Worksheets("Sheet2").Cells(ToRow + 1, 2).Value = Y
            ToRow = ToRow + 1
        Next Col
        
    Next FromRowA
End Sub

The line that reads "For Col = 3 To 33" needs to be modified to extend only as far as there is data in the individual row. So in english it would read: "For Col = 3 To "last cell in this row containing data".

I know this is fairly simple but I can't find anything on the board that tells me how this is done.

Thanks for the help.

 

[yee388]

Range("IV5").End(xlToLeft).Column

Will return the column # of the last cell in row 5 that contains a value.

You'll use your variable to denote the "5" within your loop, I imagine.

Hope this helps!

 

[tbird]

Thanks for the help, but can you provide a little more explanation? This stuff is not intuitive for me. Specifically, what am I supposed to replace with your line of code? Also, what does the "IV" term refer to in the "IV5" part?

Thanks.