Буду признателен, если кто-то может помочь мне с этим кодом

- У меня есть динамические строки и столбцы, код находит количество строк и столбцов, используя LastRow и LastColumn. Я должен построить линейную диаграмму для каждой строки (сохраняя фиксированный номер для найденного номера) и поместить его на лист 2. Я создал гибридный код с записью и циклом (так как я новичок в кодировании). Таблица листов Excel, которую я должен построить, приведена ниже (и она может быть динамической как в строках, так и в столбцах. Ячейка, Счетчик и т. Д. Являются заголовками, Первая строка - это A, Nbr и т. Д.). Пожалуйста помоги

Счетчик ячеек 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