Copy 2 cells and paste - looping

Hi,

I have code which copies Range("A1") and pastes into Range("c1").Then it loops to copy a2,a3,a4 and pastes in the same cell c1.

I just want to copy a1 and b1 instead of just a1 and paste into cell c1& c2.Then loop to copy a2&b2 till end.

SUB LOOPING_2CELLS()

Dim rngCell As Range

For Each rngCell In Sheets("SHEET1").Range("A1", Sheets("SHEET1").Range("A" & Rows.Count).End(xlUp))
  Sheets("SHEET1").Range("C1").Value = rngCell.Value


Next rngCell

END SUB

This certainly can't be what you mean but that's how I understand it.

Sub WhoKnows()
Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
        Range("A1:B" & lr).Copy Range("C1")
End Sub

Please elaborate little more.

If I understood you correctly then you want to loop through two columns A and B from end to start then want to paste value at Column C like A1 value to C1, B1 value to C2, A2 value to C3, B2 value to C4 and so on..

Please correct me if I am wrong.

Regards,

Try this
exactly what you want

Sub copy()
For c = 1 To 60000
'required range
ReqR = "a" & c & ":" & "b" & c
Range(ReqR).copy Range(ReqR).Offset(0, 2)
Next
DoEvents
End Sub

Thanks Mates,

I am bit late to thank you for all your sincere efforts.Your help really solved my need.

Thanks,

Netaji