Select and move range throughout workbook
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?
|