moving contents

[Stephen]

Is there any way to move mutliple cells from one column to
another column without having to grab each individual
cell. i.e. I want to move every forth cell in my A
column (A1,A5,A9,A13 etc.) and place them into my B column
(B1,B5,B9,B13 etc.)

I'm dealing with over 2000 rows and it would take me too
much time to do each individually.
Thanks.

 

[Debra Dalgleish]

You could use a macro to move the data (try this on a backup copy of the
data):

Sub MoveValues()
Dim c As Range
For Each c In Sheets("Data").Range("A1:A2000")
If c.Row Mod 4 = 1 Then
c.Offset(0, 1).Value = c.Value
c.ClearContents
End If
Next
End Sub