I'm trying to arrange some uniformly scattered information from a spreadsheet to another. The information I'm interested in is in `Sheet2` and I wish to place them in a customized manner in `Sheet1`.

I've tried with:

```
Sub ArrangeInformation()
    Dim ws As Worksheet, cel As Range

    Set ws = ThisWorkbook.Sheets("Sheet2")
    Set tws = ThisWorkbook.Sheets("Sheet1")

    For Each cel In ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(xlUp).row)
        tws.Range(cel(1, 1).Address) = cel
    Next cel
End Sub

```

The above script just replicates the same information in `Sheet1` how they are in `Sheet2`.

Data in `Sheet2`:

[![enter image description here](https://i.stack.imgur.com/GIWiH.jpg)](https://i.stack.imgur.com/GIWiH.jpg)

How I like to arrange them in `Sheet1`:

[![enter image description here](https://i.stack.imgur.com/3oEYD.jpg)](https://i.stack.imgur.com/3oEYD.jpg)

> 
> ***How can I arrange those information in sheet1?***
> 
> 
>