step by step?
;-)

1. out the whole expression in 1 line
If Range("B9:B35").Rows.Count <
Application.WorksheetFunction.CountBlank(Range("B9 :B35")) Then

2. For i =1 to Application.WorksheetFunction.Count(Range("A9:A100 "))


On 16 Gru, 12:00, Kasper wrote:
Nice...

Thank you very much

However I do get an error in this part:

If Range("B9:B35").Rows.Count<
Application.WorksheetFunction.CountBlank(Range("B9 :B35")) Then

Another question: The cell which tells the macro how many times to
repeat itself is actually H7 and consists of a count command, =COUNT
(A9:A100). Can this be integrated so I do not have to use a cell for
it?

Thank you
//Kasper