In the past, I have typically had a problem with using the For i = 2 to 100method, so instead, I use the following syntax.Do While ActiveCell.Value <> ""Perform calculation stepsLoop