View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
ExcelBeginner[_3_] ExcelBeginner[_3_] is offline
external usenet poster
 
Posts: 2
Default Select and move range throughout workbook

This would work if all the sheets had the same number of rows, but all the
sheets have different number of rows. Do you know how to run it so it can
determine the length or ending rows in each sheet?


"Annette" wrote in message
...
This is really clunky and keep in mind I'm no pro, but it worked for me

and
I hope it will do what you are wanting. I grouped all the sheets together
.. I think that's what you wanted(?), if not, write back, I'm sure one of
the pros can help.

Sub SelectNMove()
Worksheets.Select
Sheets("Sheet1").Activate

range("c1:E1").Select
range(Selection, Selection.End(xlDown)).Select
Selection.Cut
range("A3").Select
ActiveSheet.Paste
range("A1").Select
Selection.EntireRow.delete
range("B1").Select
Selection.delete Shift:=xlToLeft
range("A1").Select
Selection.EntireRow.delete
End Sub


"ExcelBeginner" wrote in message
...
How would I select a range from column C to column E to the end of text
(all rows down where there is text), cut and move down 2 rows to Row 3,

over
to column A and paste through all spreadsheets that have information?

Then delete row 1 in each spreadsheet?