En este caso lo mejor sería crear una función a la que le pasas los parámetros:

**Función:**

    Function copiarPorExtension(sFolderOrigen, sFolderDestino, sExtension)
       For Each sFile In oFSO.GetFolder(sFolderOrigen).Files
          If LCase(oFSO.GetExtensionName(sFile)) = sExtension Then
             If Not oFSO.FileExists(sFolderDestino & "\" &  oFSO.GetFileName(sFile)) Then
               oFSO.GetFile(sFile).Copy sFolderDestino & "\" & oFSO.GetFileName(sFile),True
             End If  
          End If
       Next
    End Function

**Preparar los parámetros y llamar la función desde cualquier parte**

    Dim sOrigen, sDestino, sExtension, dtmValue, sFecha, sHora
    sOrigen = "C:\rutaA\"  
    
    'Para obtener la fecha
    'Almacenaré la fecha en la variable sFecha y la hora en la variable sHora
    'En el ejemplo se crea el nombre de carpeta con la fecha, si quieres que tenga la hora le agregas la variable sHora 
    
    dtmValue = Now()
    
    sFecha = Year(dtmValue)"_" & Month(dtmValue) & "_" & Day(dtmValue) 
    sHora = strDate & "\" & Hour(dtmValue) & "-" & Minute(dtmValue) & "-" & Second(dtmValue)
    sDestino = "C:\ruta_final" & sFecha
    sExtension = "html"

    'Llamamos la función pasándole los parámetros

    Call copiarPorExtension(sOrigen, sDestino, sExtension)

La ventaja de la función es que, en el caso de querer pasar otros parámetros, como trabajar con archivos de extensión txt, doc u otros o con directorios distintos, no necesitas cambiar todo el código, sino solamente los parámetros que pasas a la función.