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