Copying cells

I'm still learning this stuff, so this please bear with me.


What I'm trying to do. Copy cell E2 and paste the value in E3, then copy E4 paste into E5 and so on through copy E399 and paste into e410.

Other and selection.copy then selection.paste

I need to keep this in VBA since the worksheet gets cleared from time to time and the formulas in the cells get erased.


What's the easy way in VBA

Thanks in advance!

Buddy

Hello BuddyB,

The code below with loop through E2 to E398 copying E2 to E3, E4, to E5, etc. up to E398.
_________________________________________________________________

Public Sub MyMacro()

'Start with a loop through the range and skip one cell each time.

For I = 2 To 398 Step 2

'Move the Even Cell contents to Odd Cell on the Worksheet

With Activesheet
.Cells(I + 1, 5).Value = .Cells(I, 5).Value
End With

'Test Loop if Loop is finished
Next I

'Copy E399 into E410

With Activesheet
.Range("E410").Value = .Range("E399").Value
End With

End Sub
_________________________________________________________________

Copy this code and insert it into a VBA Module so you can run it as a macro.


This should get you going,
Leith Ross

Leith


Thanks for the help....works like a charm

Buddy