merging column values and transferring them to another worksheet

[louie]

hello! help please. how do i merge the values of 2 columns then paste them
into 1 column of another worksheet? i also need to transfer rows from 1
worksheet to another with an interval of 3 then 2 then 2? after this i need
to copy F10 to J10 to E4:I4 of sheet2?
ex.
copy D10 = alex & E10 = david then paste it in B4 of sheet2
D13 = male then paste it in C4 of sheet2
D15= single then paste it in D4 of sheet2

D17= ben & E10 = cruz then paste it in B5 of sheet2

 

[Sheeloo]

Start with
Sub copy1()
'copy D10 = alex & E10 = david then paste it in B4 of sheet2
' D13 = male then paste it in C4 of sheet2
' D15= single then paste it in D4 of sheet2
'
' D17= ben & E10 = cruz then paste it in B5 of sheet2

Sheets("Sheet2").Range("B4") = _
Sheets("Sheet1").Range("D10") & " " & _
Sheets("Sheet1").Range("E10")
End Sub
and complete this macro...

______________________________
Following macro inserts 5 blank rows after every row
Can you adapt it to your need?

Sub Insert5Rows()
Dim rColA As Range
Dim c As Long
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
c = rColA(rColA.Count).Row
Application.ScreenUpdating = False
Do
Cells(c, 1).Rows("1:5").EntireRow.Insert Shift:=xlDown
c = c - 1
Loop Until c = 2
Application.ScreenUpdating = True
End Sub