Range("B1").Value = Range("A1").Value Range("B2").Value = Range("A2").Value Range("B3").Value = Range("A3").Value Range("B4").Value = Range("A4").Value Range("B5").Value = Range("A5").Value
Range("B1:B5").Value = Range("A1:A5").Value
Dim y As Integer For y = 1 To 5 Cells(y, 2).Value = Cells(y, 1).Value Next y
Range("A1:A5").Copy Range("B1:B5").PasteSpecial