Necesito MACRO que se ejecute el día 1 de cada mes

Un saludo muy fuerte.

al escribir " < " este signo en una celda se ejecuta :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Union(Target, [D488]).Address = [D488].Address Then
If Target = "<" Then
Range("F482:M485").Copy
Range("F488:M491").Select
ActiveSheet.Paste
Range("F482:M485").Select
Selection.ClearContents
End If
End If
End Sub

Tambien tengo esta macro :

Sub Macro1()
Sheets("Listado").Select
Range("F482:M485").Select
Selection.Copy
Range("F488:M491").Select
ActiveSheet.Paste
Range("F482:M485").Select
Selection.ClearContents
End Sub

Y no se como programarlas para el dia 1 de cada mes, que lo haga automaticamente.

Gracias