Excel - move and repeat contents of cells, and move contents of other cells as indicated in example

Column B contains a heading above a short list of 3 line items. The requirement is for the heading to be moved to the the cell in column A, adjacent to the top row top row of each item list and repeated for each top row item.
And the hyperlink - Google Earth Placement Mark (KMZ) for each item is to be moved into the same header row in column C.
 

I hope this makes sense. Please have a look at the example where the cells to be moved have already been done for the first heading
Radio---TV-list-example.xlsx
gregfthompsonAsked:
Who is Participating?
 
Rgonzo1971Connect With a Mentor Commented:
Hi,

pls try
Sub Macro1()

For Each c In Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
    If c = "Licence Area" Then str2BeCopiedAddress = c.Offset(-2).Address
    If c.Offset(, 2) <> "" And c.Offset(, 2) <> "Broadcaster Callsigns" Then
        Range(str2BeCopiedAddress).Copy
        c.Offset(, -1).PasteSpecial xlPasteAllExceptBorders
        c.Offset(3).Copy
        c.Offset(, 1).PasteSpecial xlPasteAllExceptBorders
        c.Offset(3).ClearContents
    End If
Next
For Each c In Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
    If c = "Licence Area" Then c.Offset(-2).ClearContents
Next
End Sub

Open in new window

Regards
0
 
gregfthompsonAuthor Commented:
Thanks you.
Fabulous!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.