how to paste in different cells

I have aמ Excel workbook that has two sheets. What I want to do is to copy the cells in column A from sheet 1 (NOT AS RANGE OR GROUP, but rather each cell individually). So I using the BeforeDoubleClick method I have managed to copy each cell individually

My problem starts when I try to paste the data. It always pastes at the same cell in sheet 2 which is A1.

I want to be able to paste in column B, starting from B1 and then on to B2 and B3 etc...

This is as far as i went please help me to finish my code. Thanks in advance.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 1 And Target.Column = 1 Then
    Cancel = True
    Selection.Copy
    Worksheets("sheet2").Activate
    Worksheets("sheet2").Paste
    Worksheets("sheet1").Activate
    Application.CutCopyMode = False
    End If
End Sub