Das Macro sollte so funktionieren, dass die aktuelle "Uhrzeit" an die Zelle der aktuellen Cursorposition übergeben wird.
Sub Schaltfläche1_BeiKlick()
If TypeName(Selection) = "Range" Then
ActiveCell = Time
ActiveCell.NumberFormat = "h:mm"
End If
End Sub