Мне нужно копировать живые веб-данные в новый столбец через каждую минуту, застрял в следующем коде, чтобы перейти к следующему столбцу

Question

Sub Timer()

Application.OnTime Now() + TimeValue("00:00:50"), "Main"

End Sub

Sub Main()

j = 5
   
    Sheets("Sheet1").Select
    Range(Cells(5, 5), Cells(19, 5)).Select
    Selection.Copy
    Sheets("Dashbord").Select
    Cells(5, j).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
         
j = j + 1
        
    Call Timer
    
End Sub

Answer 1

Dim j As Long

Sub Start()
    j=5
    NextRun
End Sub

Sub NextRun()
     Application.OnTime Now() + TimeValue("00:00:50"), "Main"
End Sub

Sub Main()

    Dim rng As range
   
    With ThisWorkbook.Sheets("Sheet1")
        Set rng = .Range(.Cells(5, 5), .Cells(19, 5))
    End with
    
    Sheets("Dashbord").Cells(5, j).Resize( _
       rng.rows.count, rng.columns.count).value =  rng.value
         
    j = j + 1
        
    NextRun
    
End Sub