Tableaux qui (DEVRAIENT SAISIR) les nouvelles données qui sont collées auto

Bonjour Excel World. Ci-dessous, j'ai un code qui copie les données et transferts de différentes cellules et colle les données d'une feuille de calcul dans plusieurs feuilles de calcul sur la base des noms de référence des cellules.

Mon problème ici est le suivant. Chaque feuille de calcul a des tableaux qui (DEVRAIENT SAISIR) les nouvelles données qui sont collées automatiquement sous le tableau, ce qui, au fil du temps, crée des données historiques et met à jour automatiquement le graphique pour chaque tableau.

Comment puis-je apporter des modifications au code ci-dessous qui prend en charge ma demande?

Merci d'avance

Sub Update_Sheets()
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim i As Long, j As Long, f As Range

  Set sh1 = Sheets("Debt_to_GDP")
  For i = 2 To sh1.Range("A:A").Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Set sh2 = Sheets(Replace(sh1.Range("A" & i).Value, " ", "_"))
    Set f = sh2.Range("B:B").Find(sh1.Range("B" & i).Value, , xlFormulas, xlWhole)
    If f Is Nothing Then
      j = sh2.Range("B:B").Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
      sh2.Range("B" & j).Value = sh1.Range("B" & i).Value
      sh2.Range("C" & j).Value = sh1.Range("C" & i).Value
    End If
  Next
End Sub
Rechercher des sujets similaires à "tableaux qui devraient saisir nouvelles donnees collees auto"