Copy data from Sheet 2 to Sheet1 and paste it in alternate rows in a new sheet

[zaveedd]

Hi,

I have data in 2 sheets . sheet1 and sheet2 are the sheet names. Data is available A to M in both the sheets.

Both will have same data except 1will have positive value the other will have Negative value.

Both the sheets have row headers .want the output in a new sheet with 2nd row from sheet 1 and 2nd row from sheet 2 ,.3rd row sheet 1 ,3rd row sheet 2 etc. Find below a sample image.

Can anybody help me with the VBA code to get this accomplished?

 

[Marc L]

​

No I can't reach it but maybe someone else could …​

 

[Marc L]

A VBA demonstration as a beginner starter :​

Sub Demo1()
        If Sheets.Count < 3 Then Sheets.Add , Sheets(2) Else Sheets(3).UsedRange.Clear
        Application.ScreenUpdating = False
    With Sheets(1).UsedRange.Rows
           .Item("1:2").Copy Sheets(3).[A1]
            L& = 2
        For R& = 3 To .Count
            L = L + 2
           .Item(R).Copy Sheets(3).Cells(L, 1)
        Next
    End With
    With Sheets(2).UsedRange.Rows
            L = 1
        For R = 2 To .Count
            L = L + 2
           .Item(R).Copy Sheets(3).Cells(L, 1)
        Next
    End With
        Application.ScreenUpdating = True
End Sub