If you want to do this automatically, do:
1) Open VBA editor (ALT+F11)
2) Copy code below:
Sub CopySomeData()
Dim srcWsh As Worksheet
Dim dstWsh As Worksheet
Set srcWsh = Thisworkbook.Worksheets("Sheet1")
Set dstWsh = Thisworkbook.Worksheets("Sheet2")
srcWsh.Range("A1:D1").Copy dstWsh.Range("A1")
srcWsh.Range("E1:H1").Copy dstWsh.Range("A2")
srcWsh.Range("A2:D2").Copy dstWsh.Range("A3")
srcWsh.Range("E2:H2").Copy dstWsh.Range("A4")
srcWsh.Range("A3:D3").Copy dstWsh.Range("A5")
srcWsh.Range("E3:H3").Copy dstWsh.Range("A6")
Set srcWsh = Nothing
Set dstWsh = Nothing
End Sub
3) Insert new Module (Menu Insert->Module)
4) Paste data from clipboard.
5) Copy code below:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet2" Then
CopySomeData
End If
End Sub
6) Go to
ThisWorkbook
object (class) and double click
7) Paste data from clipboard.
8) Save your job.