Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveCell
If Not IsEmpty(rng) Then
Set rng = rng.End(xlDown).Offset(rowoffset:=1)
End If
rng.EntireRow.Insert Shift:=xlDown
rng.Worksheet.Cells(rng.Row, 6).Value = Date
rng.Worksheet.Cells(rng.Row, 1).Value = WorksheetFunction.Max(rng.Worksheet.Columns(1)) + 1
rng.Select
End Sub
Private Sub CommandButton2_Click()
Dim rng As Range
Set rng = Rows(ActiveCell.Row + 1)
rng.Insert Shift:=xlDown
rng.Worksheet.Cells(rng.Row, 8).Value = Date
rng.Worksheet.Cells(rng.Row, 1).Value = rng.Worksheet.Cells(rng.Row - 1, 1).Value
End Sub