I have a program that writes to the column A "contact brian" every 10 line.
I need to modify the program to add another line after that every 10th line the would have the words Item# in column A and Category in column B and price in column C
Thanks
Keyboard Shortcut: Ctrl+i
'
Position = 10
Count = 0
RangeString = "A0"
Do While Count < 100
RangeString = "A" & Position
Range(RangeString).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "contact Brian"
Position = Position + 10
Count = Count + 1
Loop
I need to modify the program to add another line after that every 10th line the would have the words Item# in column A and Category in column B and price in column C
Thanks
Keyboard Shortcut: Ctrl+i
'
Position = 10
Count = 0
RangeString = "A0"
Do While Count < 100
RangeString = "A" & Position
Range(RangeString).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "contact Brian"
Position = Position + 10
Count = Count + 1
Loop