Also, if someone can help me. I would also like to know how to do the first macro but also move columns B, C, D, E, and F to the corresponding row. I can copy the value in column a down to the blank cells so there is a match if that is easier.
Dim iRow As Long
Dim j As Integer
Dim iColumnOne As Integer
iColumnOne = 1
iRow = 2
Do Until Cells(iRow, iColumnOne) = "" And Cells(iRow, iColumnOne + 1) = ""
j = 2
With Cells(iRow + 1, iColumnOne)
Do Until .Offset(1, 0) <> "" Or .Offset(1, 1) = ""
.Offset(0, j) = .Offset(1, 1)
j = j + 1
iRow = iRow + 1
This assumes the data is in columns A and B, starts on line 2 and column B has continuous data (no blank lines).