repeat macro based on a cell value

I am looking to repeat a macro I have based on the value in column R. The value in column R changes from row to row and If it has the value of 1 I would like my macro to not be used and move to the next row. I hope this makes sense and if anyone can help me with some coding I would greatly appreciate it.

This is the code I have:

Sub bundle()
'
' bundle Macro
'
' Keyboard Shortcut: Ctrl+z
'
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(0, 9).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
ActiveCell.Offset(0, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-R[-1]C[1]"
ActiveCell.Rows("1:1").EntireRow.Select

End Sub

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic