Sub test_2()
Dim x As Long
Dim NumRows As Long
NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
ReDim a(1 To NumRows)
ReDim b(1 To NumRows)
ReDim c(1 To NumRows)
For x = 2 To NumRows
a(x) = Cells(x, 1).Value
b(x) = Cells(x, 2).Value
c(x) = Cells(x, 3).Value
Cells(x - 1, 5).Value = a(x)
Cells(x, 6).Value = b(x)
Cells(x, 7).Value = c(x)
Next x
End Sub