I am having some trouble with this code and haven't been able to find a solution. I have two columns (Group and ***) and they appear multiple times in the spreadsheet. The spreadsheet comes from another program so I can't change it, but can manipulate once I have it. I need to concatenate the Group and *** into 1 column then delete the unnecessary columns. I can't figure out how to activate the inserted blank column as the range to do the concatenation. Any help would be greatly appreciated.

Sub GroupGender()
    
    Cells.Find(What:="Group", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Activate
    
    Selection.EntireColumn.Insert Shift:=xlToRight
        
    With Range(grouplocation, Cells(Rows.Count, 1).End(xlUp))
        .Offset(0, 0) = "=RC[1] & "" "" & RC[2]"
        .Offset(0, 2) = .Offset(4, 2).Value
    End With
    
    Cells.Select
    Selection.Replace What:="Group ***", Replacement:="Grp/Sx", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
    
    Cells.Replace What:="Group", Replacement:="Tagged", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="***", Replacement:="Tagged", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

    Cells.Find(What:="Tagged", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Selection.EntireColumn.Delete Shift:=xlToLeft
    
    Selection.Replace What:="Grp/Sx", Replacement:="Group/***", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

End Sub