Select and move range throughout workbook

  • Thread starter Thread starter ExcelBeginner
  • Start date Start date
E

ExcelBeginner

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?
 
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
 
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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top