請問 Excel VBA 的 範圍複製問題效能改寫建議

問題一

Excel vba 只要copy一個範圍的值就好 有哪些寫法?
Range("B2:AE2").Copy Range("B" & xlocation & ":AE" & xlocation)
若不需要格式等資料只要copy 值就好 要怎麼寫呢?
可以用cells
或是陣列的方式改寫嗎?
謝謝


問題二
請問這個Excel VBA 要怎麼改寫 才能增加執行效率呢?

Sub runmen()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim xlocation As Integer
xlocation = Cells(1, 1)


Dim aoutmoney, xoutmoney, zoutmoney As Integer
aoutmoney = Cells(5, 5)
xoutmoney = Cells(6, 5)
zoutmoney = Cells(7, 5)







'以上參數範圍定義'
'''''''''''''''''''我是分隔線''''''''''''''''''''''''''''''''
'以下跑回圈 跑盈虧等屬性報表



For ioutmoney = aoutmoney To zoutmoney Step xoutmoney
Cells(2, 5) = ioutmoney

Application.Calculation = xlCalculationAutomatic

Range("B2:AE2").Copy
Cells(xlocation, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.Calculation = xlCalculationManual

xlocation = xlocation + 1

Next ioutmoney



Application.Calculation = xlCalculationAutomatic

End Sub