Excel VBA教えてください

質問

Excel シート1のA2～E2に数字を入力します
A4～E4に A2*10・B2*10・・・と
A5～E5に A2*15・B2*15・・・と計算式がはいっています
A4～E4の結果とA5～E5の結果をA10～E10以降に代入します
ただA2～E2の数字は毎回変わるので履歴を残したいです
下記のプログラム何処を直せばよいですか?

Private Sub CommandButton1_Click()
Dim LastR As Long
LastR = Range("A65536").End(xlUp).Row + 1
If LastR < 10 Then LastR = 10
Range(Cells(LastR, "A"), Cells(LastR, "E")).Value = Range("A4:E5").Value
End Sub

回答No.2

onlyrom

質問者のコードを生かすと、
'---------------------------------------------
Private Sub CommandButton1_Click()
Dim LastR As Long
LastR = Range("A65536").End(xlUp).Row + 1
If LastR < 10 Then LastR = 10

Range(Cells(LastR, "A"), Cells(LastR + 1, "E")).Value = Range("A4:E5").Value

End Sub
'-----------------------------------------------

または、次のようにしても。

Cells(LastR, "A").Resize(2, 5).Value = Range("A4:E5").Value

以上。

お礼

今日回答確認させていただきました。
できました。本当にありがとうございました。

回答No.1

okormazd

こんなことか。

Private Sub CommandButton1_Click()
Dim LastR As Long
LastR = Range("A65536").End(xlUp).Row + 1
If LastR < 10 Then LastR = 10
Range(Cells(LastR, "A"), Cells(LastR, "E")).Value = Range("A4:E4").Value
Range(Cells(LastR+1, "A"), Cells(LastR+1, "E")).Value = Range("A5:E5").Value
End Sub

お礼

今日回答確認させていただきました。
できました。本当にありがとうございました。