Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value < "" Then
Rows(i + 1).Insert
Cells(i + 1, "A").Value = Cells(i, "B").Value
Else
Cells(i, "A").Value = Cells(i, "B").Value
End If
Cells(i, "B").Value = ""
Next i
End Sub

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"karyoker" wrote in
message ...

I print karaoke books with the artist in column 1 and the song titles in
column2.. Is there a way to move each artists song titles below the
artists name in column 1?

col1 col2 To This Col1
Artist Song1 Artist
Song2 Song1
Song3 Song2
Song3


--
karyoker
------------------------------------------------------------------------
karyoker's Profile:
http://www.excelforum.com/member.php...o&userid=29417
View this thread: http://www.excelforum.com/showthread...hreadid=504281