PDA

View Full Version : Anyone see the compile error?



nicksinthemi
04-04-2012, 07:14 AM
Not quire sure whats wrong here. Being told 'End With without With'

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

Aflatoon
04-04-2012, 07:15 AM
You are missing a Next i before the End With