I think the following does what you want:
Sub MoveData()
Dim LastRow As Integer
Dim Row As Integer
LastRow = Cells.Find("*", ActiveCell.SpecialCells(xlLastCell), , ,
xlByRows, xlPrevious).Row + 1
For Row = 1 To LastRow
Cells(Row, 2).Value = Cells(Row + 5, 1)
Cells(Row, 3).Value = Cells(Row + 6, 1)
Next
End Sub
On Sun, Jan 4, 2009 at 1:12 AM, anu mittal <3110....@gmail.com> wrote:
> Hi,
>
> I have a large data set that needs to be organized in the excel. Is there
> an excel formula or a macro that can pick up values from every 6th row or
> 7th row in column A and paste it in a different column (as in every 6th row
> value in column b and 7th row in column c)?
>
> Any help on this is greatly appreciated.
>
> Regards,
> Anu
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
