結果を別のシートにコピー

Question

私はいくつかの計算を行うシートを持っていますが、 "結果"という別のシートに完全な "結果"をコピーしたいと思います。
私は、列AとB、CとD、EとF（ペアでは、それらが接続されている）に値を持っています。私はそれらを（ペアで）コピーしてシート「結果」に貼り付けたいと思います。たとえば、列DとEでは、すべて「行内に」あります。最初同様
は、A及びBは、上記の2つの行が、次にCとD、およびからの値（上記二列）iは

したがってEおよびFの値を貼り付けを開始する、どのような方法は、ここで私ができるあります結果のサイズに応じて印刷領域を調整しますか？

私はこれがあります。

私はあなたの説明とあなたの数字が一致しないが、これは、作業を行う必要があり、この

Answer 1

をしたい：

Sub test() 

'Select sheet where data source is placed 
    Sheets("Data Source").Activate 

'Declare variables for ranges 
    Dim Rng1, Rng2, Rng3 As Range 
     Set Rng1 = Range(Range("A3"), Range("B3").End(xlDown)) 'Define range in columns A:B 
     Set Rng2 = Range(Range("C3"), Range("D3").End(xlDown)) 'Define range in columns C:D 
     Set Rng3 = Range(Range("E3"), Range("F3").End(xlDown)) 'Define range in columns E:F 

'Declare variables quantity of rows in each range 
    Dim r, r1, r2, r3 As Long 
     r = 2 'first blank rows 
     r1 = Rng1.Rows.Count 
     r2 = Rng2.Rows.Count 
     r3 = Rng3.Rows.Count 

'Go to sheet Results 
    Sheets("Results").Activate 

'Copy data into sheet Results 
    Range(Cells(r + 1, 1), Cells(r, 2).Offset(r1, 0)).Value = Rng1.Value 
    r = r + r1 + 2 '(2) represents the number of rows spacing the two tables 
    Range(Cells(r + 1, 1), Cells(r, 2).Offset(r2, 0)).Value = Rng2.Value 
    r = r + r2 + 2 '(2) represents the number of rows spacing the two tables 
    Range(Cells(r + 1, 1), Cells(r, 2).Offset(r3, 0)).Value = Rng3.Value 

End Sub 

を