Private Sub CommandButton2_Click()
Dim LastCell As Range
Cancel = True
'Find the last row with some data on the sheet
Set LastCell = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False)
'Check that sheet is not empty
If Not LastCell Is Nothing Then
'Check that the row isn't the last row of the sheet
If LastCell.Row < Rows.Count Then
'Copy the last row to the row below it
LastCell.EntireRow.Copy LastCell.EntireRow.Offset(1, 0)
LastCell.Offset(1, 0).Select
Application.CutCopyMode = False
End If
End If
End Sub