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