quitethenovice
New Member
- Joined
- Jun 3, 2020
- Messages
- 12
- Office Version
- 365
Hello friends,
I have five sheets that that I need to copy the data from each into one array and paste into the 6th sheet. The sheets may not all exist, and the number of columns is the same but the rows will be different.
The ranges to copy are:
Sheets("One").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Two").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Three").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Four").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Five").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Output:
Sheets("Final").Range("A2:M2")
Kind regards
Fred
I have five sheets that that I need to copy the data from each into one array and paste into the 6th sheet. The sheets may not all exist, and the number of columns is the same but the rows will be different.
The ranges to copy are:
Sheets("One").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Two").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Three").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Four").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Five").Range("A2:M" & Sheets("One").Range("A" & Rows.Count).End(xlUp).Row
Output:
Sheets("Final").Range("A2:M2")
Kind regards
Fred