"Alan Beban" wrote...
For i = 1 To 5
Range("B" & i).Value = Range("A" & i).Value & _
Range("A" & i + 1).Value
Next
....

Range("B1:B5").Value = Evaluate("=A1:A5&A2:A6")

would be an alternative.