線上遊戲排行榜2013/2014,進擊的巨人線上看,candy crush saga外掛,正妹寫真三圍

已爬過文, 但不管怎麼修改都會顯示錯誤
請幫忙確認這樣巨集內容要如何修改簡化?
(我一共有60頁要彙整呀...要瘋了我)

-----------------------------------
Sub 錄1()
'
' 錄1 巨集
'

'
Range("B2").Select
Sheets("1").Select
Range("Q7:W36").Select
Selection.Copy
Sheets("此次明細表").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("2").Select
Range("Q7:W36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("此次明細表").Select
Range("B32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("3").Select
Range("Q7:W36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("此次明細表").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("4").Select
Range("Q7:W36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("此次明細表").Select
Range("B92").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.