All,

I have been trying to write a loop macro that will insert a star every 6
rows in column C until there are no values in column B.

So far I can get it to insert only the first star, know I am missing
something but not sure what. This is what I have

Range("B7").Select 'Set range to start point
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).FormulaR1C1 = "*"
ActiveCell.Offset(1, -1).Select
Loop

Kirsty

You can insert this into your code by removing the first and last lines.

Sub sixrowtest()
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 7 To lastRow Step 8
If Cells(i, 2) <> "" Then
Cells(i, 3) = "*"
End If
Next
End Sub


"Kirsty" wrote:

> All,
>
> I have been trying to write a loop macro that will insert a star every 6
> rows in column C until there are no values in column B.
>
> So far I can get it to insert only the first star, know I am missing
> something but not sure what. This is what I have
>
> Range("B7").Select 'Set range to start point
> Do While ActiveCell.Value <> ""
> ActiveCell.Offset(0, 1).FormulaR1C1 = "*"
> ActiveCell.Offset(1, -1).Select
> Loop
>
> Kirsty
>
>
>

Thanks,

Works perfectly

"JLGWhiz" wrote:

> You can insert this into your code by removing the first and last lines.
>
> Sub sixrowtest()
> lastRow = Cells(Rows.Count, 2).End(xlUp).Row
> For i = 7 To lastRow Step 8
> If Cells(i, 2) <> "" Then
> Cells(i, 3) = "*"
> End If
> Next
> End Sub
>
>
> "Kirsty" wrote:
>
> > All,
> >
> > I have been trying to write a loop macro that will insert a star every 6
> > rows in column C until there are no values in column B.
> >
> > So far I can get it to insert only the first star, know I am missing
> > something but not sure what. This is what I have
> >
> > Range("B7").Select 'Set range to start point
> > Do While ActiveCell.Value <> ""
> > ActiveCell.Offset(0, 1).FormulaR1C1 = "*"
> > ActiveCell.Offset(1, -1).Select
> > Loop
> >
> > Kirsty
> >
> >
> >