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
Bookmarks