1: 2: 3: 4:
Range("AT7").Select ActiveCell.FormulaR1C1 = "=SexInput" Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column - 1).End(xlUp).Offset(, 1)).Value = ActiveCell.Value