und watt nu?

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