vielleicht sowas in der art

hier aber nur 1 Zelle auswählen

Private Sub CommandButton1_Click()
    With Selection
        .Value = "Admin"
        .Offset(0, 1).Value = "Meeting"
        .Offset(0, 2).Value = "Admin"
        .Offset(0, 3).Value = "Admin"
        .Offset(0, 4).Value = "Admin"
        .Offset(1, 0).Value = Range("M2").Value
        .Offset(1, 1).Value = Range("M3").Value
        .Offset(2, 1).Value = Date & Space(3) & "07:15"
        .Offset(2, 2).Value = Date & Space(3) & "08:00"
        .Offset(2, 3).Value = Date & Space(3) & "08:00"
        .Offset(2, 4).Value = Date & Space(3) & "08:25"
    End With
End Sub

wenn du aber wild übers Tabellenblatt verteilst ausfüllen willst dann wird das so nüscht