Irregular Data Set

[IdabaMalouki]

Someone here helped write a macros for an irregular data set I had. The site I paste and copy the data from has changed the format. Here is the original VBA macros for the old data set:

Sub sortdata()
  Dim a As Variant, b As Variant
  Dim i As Long, k As Long, lr As Long, n As Long
  
  lr = Range("A" & Rows.Count).End(3).Row
  n = 16 - (lr Mod 16)
  
  a = Range("A1:A" & lr + n).Value
  ReDim b(1 To UBound(a, 1), 1 To 7)
  
  For i = 1 To UBound(a, 1) Step 16
    k = k + 1
    b(k, 1) = a(i, 1)
    b(k, 2) = a(i + 1, 1)
    b(k, 3) = a(i + 4, 1)
    b(k, 4) = a(i + 5, 1)
    b(k, 5) = a(i + 9, 1)
    b(k, 6) = a(i + 12, 1)
    b(k, 7) = a(i + 13, 1)
    k = k + 1
    b(k, 2) = a(i + 2, 1)
    b(k, 3) = a(i + 6, 1)
    b(k, 4) = a(i + 7, 1)
    b(k, 5) = a(i + 10, 1)
    b(k, 6) = a(i + 14, 1)
    b(k, 7) = a(i + 15, 1)
  Next

  Range("C2").Resize(UBound(b, 1), UBound(b, 2)).Value = b
End Sub

Can someone please help tweak that code so that the new irregular data set in this Excel spreadsheet organized data in column A into columns C-I?

 

[DanteAmor]

I like to program with arrays, but in this case, we can solve it like this:

Sub organized_data_v1()
  Dim i As Long, k As Long
  
  Application.ScreenUpdating = False
  k = 2
  For i = 1 To Range("A" & Rows.Count).End(3).Row Step 20
    Range("C" & k).Value = Range("A" & i + 17)
    Range("D" & k).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 3).Resize(6).Value)
    Range("D" & k + 1).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 9).Resize(6).Value)
    k = k + 2
  Next
  Application.ScreenUpdating = True
End Sub

 

[IdabaMalouki]

I like to program with arrays, but in this case, we can solve it like this:

Sub organized_data_v1()
  Dim i As Long, k As Long
 
  Application.ScreenUpdating = False
  k = 2
  For i = 1 To Range("A" & Rows.Count).End(3).Row Step 20
    Range("C" & k).Value = Range("A" & i + 17)
    Range("D" & k).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 3).Resize(6).Value)
    Range("D" & k + 1).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 9).Resize(6).Value)
    k = k + 2
  Next
  Application.ScreenUpdating = True
End Sub

I like to program with arrays, but in this case, we can solve it like this:

Sub organized_data_v1()
  Dim i As Long, k As Long
 
  Application.ScreenUpdating = False
  k = 2
  For i = 1 To Range("A" & Rows.Count).End(3).Row Step 20
    Range("C" & k).Value = Range("A" & i + 17)
    Range("D" & k).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 3).Resize(6).Value)
    Range("D" & k + 1).Resize(1, 6).Value = Application.Transpose(Range("A" & i + 9).Resize(6).Value)
    k = k + 2
  Next
  Application.ScreenUpdating = True
End Sub

Thank you, sir. And thanks again for helping with the original problem.