I am trying to loop through column A (Cell A3 to A5) of worksheet, Sheet1 (cell values are 1, 2 ,and 3). And copy and paste the values into other worksheets in cell A1. So Sheet2 A1 has 1 , Sheet3 A1 has 2 and Sheet4 A1 has 3 . Instead my code ends up putting 3 into all the worksheets. Can anyone help? Thanks in advance 

```
Sub test()
    Dim X As Long, Y As Long

    For X = 2 To Worksheets.Count        
        For Y = 3 To 5
            Sheets("sheet1").Range("A" & Y).Copy Worksheets(X).Range("A1")

End Sub

```