Again - a problem. VB says: "Loop without Do". I could choke the man who invented VB.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 15-07-2005 by Anders Andersen
'
Dim Celle As Long
Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
Dim E As Long
Dim XL As Variant
Dim xlWS As Variant

Set xlWS = ActiveSheet
Dim colXLparams As New Collection
Celle = 2
A = 2
B = 2
C = 2
D = 2
E = 2

Do While xlWS.Cells(A, 30).Value <> ""

If Cells(E, 138).Value = "E" And Cells(D, 111).Value = "" Then
Cells(Celle, 28).Value = "E"
Exit Sub
Else
Cells(Celle, 28).Value = ""

If Cells(D, 111).Value = "D" And Cells(C, 84).Value = "" Then
Cells(Celle, 28).Value = "D"
Exit Sub
Else
Cells(Celle, 28).Value = ""

If Cells(C, 84).Value = "C" And Cells(B, 57).Value = "" Then
Cells(Celle, 28).Value = "C"
Exit Sub
Else
Cells(Celle, 28).Value = ""

If Cells(B, 57).Value = "B" And Cells(A, 30).Value = "" Then
Cells(Celle, 28).Value = "B"
Exit Sub
Else
Cells(Celle, 28).Value = ""

If Cells(A, 30).Value = "A" Then
Cells(Celle, 28).Value = "A"
Exit Sub
Else
Cells(Celle, 28).Value = ""
End If

Celle = Celle + 1
A = A + 1
B = B + 1
C = C + 1
D = D + 1
E = E + 1

Loop
End Sub