Automatically creating a back copy in other location which is updated at all times

[KK1234]

Hi ,
I am using this code to make an automatic copy of work book in other destinations.
I am learning on how to write the code.
My file name is ABCDE and it is at C:/TP/NN ( NN is the folder)
Path where back up copy is to be saved is C:/TP/BK( BK is the name of the folder)
I want the data on back copy saved every time the main copy is modified, however if some one tries to delete any information, then the back up copy remains as it is.
How it can be possible???
I have a general code, but dont know how to rewrite it.
Please help...

Sub MyBackup()
' Saves a renamed copy of this workbook in the nominated folder as a backup.
' Pre-requisite: PathExists Function (see below)

Dim fname As String
Dim Path As String
Dim PathnName As String
Dim Mydate as String

On Error Resume Next
MyDate = Format(Date, "yymmdd") & " "
Path = "[Specify path for backup here, including final \]" 

fname = MyDate & ThisWorkbook.Name
PathnName = Path & fname

If PathExists(Path) Then
    ThisWorkbook.SaveCopyAs PathnName
Else
    Exit sub
End If
End Sub

Public Function PathExists(pname) As Boolean
' Returns TRUE if the path exists
' Code source: http://www.j-walk.com/ss/excel/tips/tip54.htm
Dim x As String

On Error Resume Next
x = GetAttr(pname) And 0
If Err = 0 Then PathExists = True Else PathExists = False

End Function