Example of what I need:
Column A B C D
time for A Break original row

New inserted row:
Column A B C D
time inserted row
for A Break original row

Public Sub Temp()
Dim lngRowCount As Long
For lngRowCount = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Not IsEmpty(Cells(lngRowCount, 1)) Then
Rows(lngRowCount + 1).EntireRow.Insert shift:=xlDown
End If
Next
End Sub

"Stanley Braverman" wrote in message
...
Hi Sean,

You want to move down column A looking for data in cells. Once found you
want to insert a row above the located data, then copy the data up to the
new
row, and finally delete the original row___

No. delete only old cell and copy only cell...not complete row

You say that if A contains data then B, C and D will also contain data.
Do
you wish to copy all four of these cells, or just A

Just A

were you planning on
deleting the contents of B, C and D after the copy?

No. Just A