Checking Date If Match Then Copy And Delete

I have been trying to write a script that when a workbook is opened it promts you if you want to archrive old data.

If the use selects yes the script will run and checks all dates in column AG8:AG60 on status worksheet if it matches that criteria(older than 30days from today, and it is underlined) then it copys and paste all the data in that row from "A" to " AI" to the next available row in the archive sheet in the same workbook.

This is what I have but since i dont quite understand VB that well i cant find where my mistake is.


Private Sub Workbook_Open()
Dim iReply As Integer
iReply = MsgBox(Prompt:="Do you wish to archive old Data now?", _
Buttons:=vbYesNo, Title:="Remove Old Data")
If iReply = vbYes Then
MsgBox "I will know run chkdates"
Run "ChkDates()"
ElseIf iReply = vbNo Then
Exit Sub
Else
Exit Sub
End If
End Sub ............................