Byłbym wdzięczny, gdyby ktoś mógł mi pomóc z tym kodem

- Mam dynamiczne wiersze i kolumny, kod znajduje liczbę wierszy i kolumn przy użyciu LastRow i LastColumn. Muszę wykreślić wykres liniowy dla każdego wiersza (utrzymując ustaloną liczbę na znalezionym numerze) i umieścić go w arkuszu 2. Stworzyłem kod hybrydowy z nagrywaniem i zapętlaniem (ponieważ jestem nowy w kodowaniu). Tabela arkusza Excela, którą muszę wykreślić, jest podana poniżej (i może być dynamiczna zarówno w wierszach, jak i kolumnach. Komórka, Licznik itp. Są nagłówkiem, Pierwszy wiersz to A, Nbr itd.). Proszę pomóż

Licznik komórek 0:45 1:00 1:15 1:30 1:45 2:00 2:15 2:30
A Nbr 10 54 45 0 0 0 0 0

 Dim i As Long        
 Dim LastRow As Long        
 Dim LastColumn As Long        
 Dim cht As Chart          

  LastRow = Range("A65536").End(xlUp).row         
  LastColumn = Range("A1").End(xlToRight).Column     

For i = 2 To LastRow               
        Dim location As String              

Range("$A$i:$LastColumn").Select    
    ActiveSheet.Shapes.AddChart.Select           
    ActiveChart.ChartType = xlLine      
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$i:$LastColumn")          

  With ActiveChart.Parent     
     .Height = 225 ' resize     
     .Width = 500  ' resize     

      ActiveChart.ChartArea.Copy     
Sheets("Sheet2").Select     
ActiveSheet.Pictures.Paste.Select         
Sheets("Sheet1").Select     
Application.Run ("DeleteEmbeddedCharts")     

  End With     
 Next i                
 End Sub