Sorry I forget a parantheses the real code is

Range("A2").End(xlToRight).Formula = "MIN(OFFSET(ActiveCell,0,-4):OFFSET(ActiveCell,0,-4))"