Wow yours is neat, works on the same columns of data and removes the blanks?
Here is my solution. Mine writes to new columns but you still have to remove blanks I just used the filter.
Where can I learn more about the commands you used here?
I had to sort out the relationship in mine for
A2 – K2
A3 – K10
A4 – K18
A5 – K26
A6 – K34
, will post this in separate reply.
Sub arraystore1()
Dim rowrecord(0, 8)
Dim name As String
Dim x As Integer
x = 2
Dim k As Integer
k = 2
While x <= 114
name = Range("A" & x)
rowrecord(0, 0) = Range("B" & x)
rowrecord(0, 1) = Range("C" & x)
rowrecord(0, 2) = Range("D" & x)
rowrecord(0, 3) = Range("E" & x)
rowrecord(0, 4) = Range("F" & x)
rowrecord(0, 5) = Range("G" & x)
rowrecord(0, 6) = Range("H" & x)
rowrecord(0, 7) = Range("k1")
rowrecord(0, 8) = Range("k1")
For i = k To (k + 7)
Range("K" & i).Value = name
Next
Dim p As Integer
p = 0
For t = k To (k + 7)
Range("L" & t).NumberFormat = "@"
Range("L" & t).Value = rowrecord(0, p * 1)
p = p + 1
Next
x = x + 1
k = (8 * x) - 14
Wend
End Sub
Bookmarks