Macro for copying the value of one Cell to another cell(s) in specific time interval

[Swarnendu]

Latest Update

• The Macro "MntCalculate" doesn't start automatically when worksheet opens
• "MntCalculate" is filling TWO columns at a time instead of ONE.
• Web data isn't updating
• The Workbook doesn't AutoCalculate or AutoRefresh

The Macros currently being used:

ThisWorkbook:

Private Sub Workbook_Open()
    Application.Calculation = xlCalculationAutomatic
        If Weekday(Date) <> 1 And Weekday(Date) <> 7 Then
        If TimeValue(Now) > TimeValue("09:14:59") And TimeValue(Now) < TimeValue("15:30:01") Then
        Application.OnTime Now + TimeValue("00:00:01"), "Sheet7.MntCalculate"
      End If
    End If
End Sub

Sheet7:

Sub MntCalculate()
            Application.Calculation = xlCalculationManual
            LC = Application.Max(11, Cells(2, Columns.Count).End(xlToLeft).Column + 1)
    For i = 2 To 218
        Cells(i, LC) = Range("J" & i)
    Next i
    Application.Calculation = xlCalculationAutomatic
    If Weekday(Date) <> 1 And Weekday(Date <> 7) Then
        If TimeValue(Now) > TimeValue("09:14:59") And TimeValue(Now) < TimeValue("15:30:01") Then
            Application.OnTime Now + TimeValue("00:02:00"), "Sheet7.MntCalculate"
        End If
    End If
End Sub

I have also attached the latest Worksheet


Swarnendu