Help with VBA data new row each time

[Csummers]

I will try and explain what im doing just playing around with VBA and excel to see if i can get this to work. I have used this in the past but it has been so long since i have done anything with it im at a loss of where im going wrong.


I have 4 sheets that im working with


1 - Stats
2 - Ratings
3 - Rerates 2016
4 - Final Ratings


Im basically trying to make a macro with VBA to Copy the Ratings in range (B2:S2) over to the Rerates 2016 range (B7:S7)
Then copy range (B8:N8) on the Rerates 2016 sheet and paste in the Final Ratings sheet to a new row each time i would click the macro button
after i paste the data in the next row on the Final Ratings page i would then go back to the Stats sheet and delete the data out of range (A10:H10)
then the same thing on the Ratings sheet delete data out of the range (A2:S2) after this it should hopefully start the process over until i run out of data
but what ends up happening after 1 run it stops and the data that is pasted in to the Final Ratings sheet is incomplete basically it doesnt match the data that was copied out of the Rerates 2016 sheet range (B8:N8).


Below is the test i ran and the code i was using

Range("B2:S2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8:N8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Paste Rerates here First").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Total Player").Select
Rows("10:10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("RatingVitalCombined").Select
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("B2:S2").Select
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


Any help would be awesome


Thanks

 

[Csummers]

ok well here like i said i couldnt figure out why Dropbox wouldnt give me the option to share while editing

so here is my one drive share

https://1drv.ms/x/s!AhcPy1exU_Jeihj21LP6cDBju0fC

Thanks

 

[Csummers]

If someone could please help me with this i would appreciate it

Thanks

 

[Csummers]

Still looking for help if anyone is willing

Thanks

 

[Csummers]

Still looking for help with this. If anyone would please help me with this i would greatly appreciate it

Thanks