Attribute VB_Name = "testcellformat9"
Sub ƒeƒXƒg()
    
    Range("A1:A2").Value = "08:12:06"
    Range("A1").NumberFormatLocal = "h:m:s"
    Range("A2").NumberFormatLocal = "hh:mm:ss"
    
    Range("A3:A4").Value = "21:05:36"
    Range("A3").NumberFormatLocal = "h:m:s"
    Range("A4").NumberFormatLocal = "hh:mm:ss"
        
End Sub