Sub Macro1()
    With ActiveCell
        .FormulaR1C1 = Now()
        .NumberFormat = "h:mm AM/PM"
    End With
End Sub