Hi,
I've recorded the macro shown below. The idea is to look down a spreadsheet
with several thousand rows, looking in column D for "statistical", selecting
the row with the word statistical on it, and the next 22 rows; cutting the 23
rows and pasting into another sheet.
I want to adjust the macro so that, having run it the first time, I run it
again and it finds the next 23 rows starting with "statistical. Cut those
rows and paste on the other sheet below the first batch of 23 rows. Then keep
on running the macros until it finds all the "blocks of rows" starting with
"statistical. I will then end up with a sheet containing, say ten blocks of
rows, each of 23 rows, one beneath the other.
I'm a novice at this, so some help would be very appreciated.
Thanks for looking.
Paul



Columns("D:D").Select
Selection.Find(What:="Statistical", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Rows("743:765").Select
Range("C743").Activate
Selection.Cut
Sheets("Sheet1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("A2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Range("A11").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("A25").Select
End Sub