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".
<tbody>
</tbody><colgroup><col span="2"><col><col><col><col></colgroup>
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>