The following code can be run from any sheet. It also doesn't matter how many forms you might add (if the need arrises).
Here is the code:
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Final Scores" Then
Range("A2:C" & Range("C" & Rows.Count).End(xlUp).Row).Copy _
Sheets("Final Scores").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row).Copy _
Sheets("Final Scores").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
Range("A1").CurrentRegion.Sort key1:=Range("D1"), order1:=xlDescending, Header:=xlYes
And in case you don't know:
How to implement and run a code:
- From Excel hit Alt + F11 to open the “Microsoft Visual Basic” window.
- Go to the top menu in the newly opened window > Insert > Module.
- Paste the code in the big white field.
- You can now close this window.
- Back at Excel, hit Alt + F8 to display the available macro’s.
- Double-click the macro you wish to run.
NOTE: macro’s cannot be reversed using the blue arrows. Always make sure you save your file before running a code, so you can re-open your file if something unforeseen happens or you want to go back to the situation before the code was run.