Как устранить ошибку 424 в VB

---

Private Sub CommandButton1_Click()
Dim FDate As Date
Dim Name As String
Dim Amount As Integer
Dim City As String
Dim mydata As Workbook
Worksheets("Form").Select
FDate = Range("J7")
Name = Range("J9")
Amount = Range("J11")
City = Range("J13")
Set mydata = Workbook.Open("E:\Data\Recieved Data.xlsx")
Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
If Worksheets("Data").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Data").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = FDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Amount
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = City
mydata.Save
End Sub

Что я уже пробовал:

Private Sub CommandButton1_Click()
Dim FDate As Date
Dim Name As String
Dim Amount As Integer
Dim City As String
Dim mydata As Workbook
Worksheets("Form").Select
FDate = Range("J7")
Name = Range("J9")
Amount = Range("J11")
City = Range("J13")
Set mydata = Workbook.Open("E:\Data\Recieved Data.xlsx")
Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
If Worksheets("Data").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Data").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = FDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Amount
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = City
mydata.Save
End Sub

---