Vba copy selected cell to last raw

[Halim]

Hi,

I am developing Vba to copy selected cells (range E8:F8 containging formula) only and paste to last raw in the colum of E:F, upon the data in range A8:D is being updated daily. Appreciate any help on this matter.

Private Sub CommandButton1_Click()
Dim Last_Row As String
Last_Row = Sheet5.Range("E8").End(xlDown).Offset(1).Row
Sheet5.Range("E8:F8").Copy Sheet5.Range("E8" & Last_Row).Paste
End Sub

but I having run-time error "438".

A	B	C	D	E	F
Date	Number	Data	Deleted Row	***	Diff
01-02-14	1	0.475		0.475	0.000
02-02-14	2	0.473		0.475	-0.002
03-02-14	3	0.477		0.475	0.002
04-02-14	4	0.480		0.475	0.005
05-02-14	5	0.477		0.475	0.002
06-02-14	6	0.476		0.475	0.001
07-02-14	7	0.480		0.475	0.005
08-02-14	8	0.478		0.475	0.003
09-02-14	9	0.474		0.475	-0.001
10-02-14	10	0.471		0.475	-0.004
11-02-14	11	0.473
12-02-14	12	0.474
13-02-14	13	0.476
14-02-14	14	0.477
15-02-14	15	0.478
16-02-14	16	0.479
17-02-14	17	0.480	0.492
18-02-14	18	0.478
10-02-14	19	0.471
11-02-14	20	0.473

<tbody>
</tbody><colgroup><col span="2"><col><col><col><col></colgroup>

 

[puru.sve]

Hi Hali ... Here you go..

Dim Last_Row As Integer
Last_Row = Sheet5.Range("E8").End(xlDown).Offset(1).Row
Sheet5.Range("E8:F8").Copy Sheet5.Range("E" & Last_Row)

 

[Halim]

Thanks...works perfectly.

Regards, Halim