Code to select cell to the right of current cell.

So I use a macro to add column, selects column to the left of it, B in this case, move down till end, insert a 1 in the new column (at the bottom) which I later use to copy a new formula down

  Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    Selection.End(xlDown).Select
    Range("C2236").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.End(xlUp).Select
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""",RC[1],RC[-2]&"" GROUP"")"
    Range("C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown

The Column should always be the same, but I can't garentee the rows will be, so I'm wondering if I can tell the macro to selection end down and go right 1 rather than the specific cell C2236 which codes in when I use the right arrow.

Thanks in advance for any help.

CDNcameron,

Give this a try:

Sub tgr()
    
    Columns("C").Insert
    With Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row)
        .Formula = "=IF(A" & .Row & "="""",B" & .Row & ",A" & .Row & "&"" GROUP"")"
    End With
    
End Sub

Using select statements and activecell is bad practice. I would recommend learning how to avoid their use.