Anyone see the compile error?

[nicksinthemi]

Not quire sure whats wrong here. Being told 'End With without With'

[VBA]Application.ScreenUpdating = False

With Activesheet

lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = lastrow To 2 Step -1

If .Cells(i, "A").Value = "" Then

.Cells(i-1, "B").Value = .Cells(i-1, "B").Value & " " & .Cells(i, "B").Value
.Rows(i).Delete
End If
End With

Application.ScreenUpdating = True
End Sub [/VBA]

[Aflatoon]

You are missing a Next i before the End With