Copy and paste macros???

Private Sub CommandButton1_Click()
 With Sheets("Voicemail Log").Cells(Rows.Count, 9)
       .End(xlUp).Offset(1) = Date
       .End(xlUp).Offset(1) = Time
    End With
 End Sub