Go to cell in very last column of the active row

[shomic5]

I found a really wonderful vba from alansidman - "Go to cell in specific column of the active row" (see below)

Sub JumpToFront()

Dim r As Long
r = ActiveCell.Row
Range("U" & r).Select

End Sub

But I need some code which goes to the very last column in the active row (not the last entry) the last column (which will change as the spreadsheet grows). It is currently CG but that may become CH, then CI as columns are added in before this column.

Can anyone give help

 

[ExcelToDAX]

How about this?

Sub getLastColumn()
Dim lastCol As Long
    lastCol = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
    Cells(ActiveCell.Row, lastCol).Select
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub shomic()
   Dim c As Long
   c = Range("XFD1").End(xlToLeft).Column
   Cells(ActiveCell.Row, c).Select
End Sub

This assumes you have headers in row1.