I have a workbook that has 9 worksheets that are always there and then a varying number of worksheets that will be included after the original nine.
What I am trying to do is copy columns A and F (from the 2nd row down to the last cell with a value) from each of the worksheets after the original nine. Then I want to paste the data from each of those worksheets into the next available cell of columns A and F on a worksheet called "AllDown"
I had tried using this method but it never copied any data into the "AllDown" sheet:
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
If sheet.Index > 9 Then
ActiveSheet.Range("A2:A300").Select
Selection.Copy
Sheets("AllDown").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Any assistance is appreciated.
What I am trying to do is copy columns A and F (from the 2nd row down to the last cell with a value) from each of the worksheets after the original nine. Then I want to paste the data from each of those worksheets into the next available cell of columns A and F on a worksheet called "AllDown"
I had tried using this method but it never copied any data into the "AllDown" sheet:
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
If sheet.Index > 9 Then
ActiveSheet.Range("A2:A300").Select
Selection.Copy
Sheets("AllDown").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Any assistance is appreciated.