Thank you very much!! It works.

And when it change rows and columns? how do you do it? lets say in here: 

    ActiveCell.Offset(1, 2).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R2C94))>0),R2C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R3C94))>0),R3C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R4C94))>0),R4C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R5C94))>0),R5C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R6C94))>0),R6C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R7C94))>0),R7C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R8C94))>0),R8C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R9C94))>0),R9C98,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select