Copy Paste Multiple Columns To Another Sheet

[unknownymous]

Hi Guys,

Need some help here. So I have a workbook with filename "Master Data" with tab sheets namely "Main File" and "Final".

Main File Data look like this"

Name	Stat 1	Stat 2	PrevStat	Subject1	Subject2	Subject 3
Eve	9	6	10	Math	Science	PE
Mon	7	5	15	History	PE	Geo
Sam	4	7	8	PE	Math	PolSci
Belle	4	2	6	Math	Sciene	History

<tbody>
</tbody>

I'm looking for the codes where the macro will copy the data from the "Master Data" to "Final" tab and the result will look like below.
By the way, the "Current Stat" is the result of summing up "Stat1" and "Stat 2"

Name	Subject1	Subject2	Subject3	Current Stat	PrevStat
Even	Math	Science	PE	15	10
Mon	History	PE	Geo	12	15
Sam	PE	Math	PolSci	11	8
Belle	Math	Science	History	6	6

<tbody>
</tbody>

Any help will be much appreciated.

 

[My Aswer Is This]

Try this:

Sub Test()
'Modified 6/29/2018 5:12 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Sheets("Main File").Activate
Dim Lastrow As Long
Lastrow = Sheets("Final").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Final").Cells(1, 1).Resize(Lastrow, 6).ClearContents
Lastrow = Sheets("Main File").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Main File").Cells(1, "A").Resize(Lastrow).Copy Sheets("Final").Cells(1, 1)
Lastrow = Sheets("Main File").Cells(Rows.Count, "E").End(xlUp).Row
Sheets("Main File").Cells(1, "E").Resize(Lastrow, 3).Copy Sheets("Final").Cells(1, 2)
Lastrow = Sheets("Main File").Cells(Rows.Count, "D").End(xlUp).Row
Sheets("Main File").Cells(1, "D").Resize(Lastrow).Copy Sheets("Final").Cells(1, "F")
Sheets("Final").Cells(1, "E").Value = "Current Stat"
Lastrow = Sheets("Main File").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To Lastrow
Sheets("Final").Cells(i, "E").Value = Cells(i, "b").Value + Cells(i, "C").Value
Next
Application.ScreenUpdating = True
End Sub