Private Sub CommandButton1_Click()
If ActiveCell.Row > 14 And ActiveCell.Row < Trim(Str(Range("weight").Row) - 2) Then
activerow = ActiveCell.Row + 1
Cells(activerow, 1).EntireRow.Insert
Range(Cells(activerow, 10), Cells(activerow, 11)).FormulaR1C1 = "=IF(RC[-2]>RC[-7], RC[-2]-RC[-7],0)"
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" + Trim(Str(Range("weight").Row) + 2)
End Sub