Sub addtext_main()
Dim cell As Range
Dim Allcells As Range
Set Allcells = Selection

For Each cell In Allcells.Columns(1).Cells
If Len(cell.Text) Then
If Asc(Left$(cell.Text, 1)) = 97 And Asc(Left$(cell.Text, 1)) <= 122 Then
cell.Offset(-1, 0).Value = cell.Offset(-1, 0).Value & " " & cell.Value
cell.EntireRow.Delete
End If
End If
Next
End Sub

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"jsd219"
wrote in message
can anyone take a look at this script and show me if there is a way to
make it run more efficient? when i run this script it boggs and
actually never ends. i end up having to break the code to stop it.

Sub addtext_main()
Dim strCellAbove As String
Dim strCurrentCell As String
Dim s As String
Dim cell As Range

nlastrow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row- 1
myrow = Selection.Row
howmany = nlastrow - myrow
Set cell2 = Range(Selection, Selection.Offset(howmany, 0))
cell2.Select
For Each cell In Selection
If Asc(Left(cell.Text, 1)) = 97 And Asc(Left(cell.Text, 1)) <= 122 Then
cell.Offset(-1, 0).Value = cell.Offset(-1, 0).Value & " " & cell.Value
ActiveSheet.Rows(cell.Row).Delete
End If
Next
End Sub

God bless
jsd219