Attribute VB_Name = "testcellformat1"
Sub ƒeƒXƒg()
    
    Range("A1:A2").Value = 1.4
    Range("A3:A4").Value = 123.456

    Range("A1").NumberFormatLocal = "##.##"
    Range("A3").NumberFormatLocal = "##.##"
    Range("A2").NumberFormatLocal = "00.00"
    Range("A4").NumberFormatLocal = "00.00"

End Sub