When deleting data (rows) macros prompts an error and cannot be used anymore

[cherryk0317]

Private Sub CommandButton2_Click()

Range("A5").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select

Sheets("Add Entry").Select

Application.GoTo Reference:="R6C4"
ActiveCell.FormulaR1C1 = Now()

End Sub


currently out file has 900 plus entries and I want to delete the previous data on the file. How do I delete the data without the macro being affected. Deleting the rows prompts that this line as an error.

 

[bobaol]

The error is most likely caused by xlDown. When you xlDown, you're probably going to the end of the spreadsheet row 1048576. at the end, you cannot go down one more cell, therefore, the error.

try this, with an error handler:

Private Sub CommandButton2_Click()

Application.Run "macro1"
Application.Run "macro2"

End Sub

Sub Macro1()
On Error GoTo Err_Handler
For i = 1 To 6489
Range("A5").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Next

Go_To_A1:
Application.GoTo Reference:="R1C1"
Application.Calculation = xlAutomatic

Err_Handler:
Application.GoTo Reference:="R1C1"
Application.Calculation = xlAutomatic
End Sub


Sub Macro2()
Sheets("Add Entry").Select
Application.GoTo Reference:="R6C4"
ActiveCell.FormulaR1C1 = Now()
End Sub