Pretty new to this. Need some help!

I have 61 separate sheets within the same workbook. Row 8 on every worksheet has the same type of data, but varies in column length from sheet-to-sheet (left to right).

I'd like to write a VBA script that would do the following:

1. Begin on Column A, Row 8.
2. Count the number of cells with data in Row 8 (left to right).
3. Insert rows below based on the number of cells counted.
4. Transpose the data from Row 8 to the newly inserted rows directly below. Ideally, I'd like to keep the first piece of data (column A, Row 8) where it is and paste the rest below that.

I've got some code written, but just can't seem to get it completed. 

```
    Sub Macro3()
Dim example As Range
Set example = Range("A1")

example.Rows(8).Select

usedRangeLastColNum = ActiveSheet.UsedRange.Columns.Count
MsgBox usedRangeLastColNum

example.EntireRow(9).Insert

    End Sub

```

I don't need a message box to pop up. I just used that to make sure my code was getting the right number count. 

I think I've gotten pretty far based on the fact I am completely new to this. 

Thanks so much!

E