Otto...thank you!!!!!!!!!!!!!!!! This did exactly what I was looking for and
written very lean. Thanx again!!!

Fixed my email :)

Dennis
=================

In article , "Otto Moehrbach"
wrote:

Sub MoveData()
Dim RngA As Range 'Range of Col A from A2 down
Dim c As Long
Dim Spaces3 As String 'Entry with =3 leading spaces -20 leading
characters
Set RngA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For c = RngA.Count - 1 To 1 Step -1
If Left(RngA(c).Offset(1), 3) = " " Then
Spaces3 = Right(RngA(c).Offset(1), Len(RngA(c).Offset(1)) - 20)
RngA(c).Value = RngA(c).Value & Spaces3
RngA(c).Offset(1).EntireRow.Delete
End If
Next c
End Sub