Hi Bob!

thanks for your tip, however when I run the macro, it gives me an error
message and says there is something wrong with "Split" function. Any
idea what could it be?

I have eventually written this macro and it works fine:

Sub Choose()

Dim i As Long
Dim j As Long

Dim table
Dim tablex
Dim nazov

table = Array("A", "B", "C", "D", "E", "F", "G", "H")
tablex = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11",
"12")

For j = 0 To 7

For i = 0 To 11

If Cells(12 * j + i + 1, "A").Value < table(j) + tablex(i)
Then
Cells(12 * j + i + 1, "A").EntireRow.Insert
End If

Next i

Next j

End Sub

Regards, Dan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!