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
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