Simple Copy and Update Cell Value Every Minute

[p45cal]

In answer to msg#7:

Sub blah()
With Sheets("Sheet9").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Resize(14)    'destination sheet, to the right of data in row 3
  .Value = Sheets("Sheet1").Range("P11:P24").Value    'source sheet and range 1
  .Offset(15).Value = Sheets("Sheet1").Range("AF11:AF24").Value    'source sheet and range 3
  .Offset(, 1).Value = Sheets("Sheet1").Range("X11:X24").Value    'source sheet and range 2
  .Offset(15, 1).Value = Sheets("Sheet1").Range("AD11:AD24").Value    'source sheet and range 4
  If .Column = 5 Then
    .Offset(, -1).ClearContents    'removes formulae from column D
    .Offset(15, -1).ClearContents    'removes formulae from column D
  End If
  .Offset(, 2).FormulaR1C1 = "=RC[-2]-RC[-5]"    'add a formulae in the next column
  .Offset(15, 2).FormulaR1C1 = "=RC[-2]-RC[-5]"    'add a formulae in the next column
End With
If UCase(Sheets("Sheet9").Range("A1").Value) <> "STOP" Then Application.OnTime Now() + TimeValue("00:01:00"), "blah"
End Sub

msg#8 response coming presently…