Macro Excel = Escribo en A:A y colocar fecha en C y H

Hola DAM, aquí molestándote nuevamente. ¿Qué tal el fin de semana? Espero que bien

Baje tu macro y mi sorpresa, su utilidad para 2 plantillas que uso, la implementaré a las 2 plantillas.

El titulo dice lo que pretendo

Solo que en una plantilla la tendré en la C y H y en la otra plantilla en la D y G

'EN VES DE TENER LAS 2 LÍNEAS, QUE SEA UNA SOLA LÍNEA PARA LAS DOS COLUMNAS

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        For Each r In Target.Rows
'EN VES DE TENER LAS 2 LINEAS SIGUIENTES, QUE TENGA 1 SOLAMENTE PARA LAS DOS COLUMNAS
            Cells(r.Row, "C") = Date
            Cells(r.Row, "H") = Date
        Next
    End If
End Sub

Espero tu respuesta la cual agradezco