title: VBA Copy & pasting adjacent columns of multiple rows
body: <p>I wrote a simple macro to Copy and paste one row of two adjacent columns,I then added the app.ontime to automatically run the copy&amp;paste macro. I have multiple rows of data I want to apply my macro to. Any thoughts?</p>
  
  <pre><code>Public Sub PasteDynamicData()
  
  'runs TestKDdata every Xmin
  
  Sheets("MOVINGAVGDATAFromKD").Range("C4").Copy
  
  Range("J4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, operation:= _
      xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  
  Sheets("MOVINGAVGDATAFromKD").Range("I4:j4").Insert _
  shift:=xlDown
  
  Sheets("MOVINGAVGDATAFromKD").Range("D4").Copy
  
  Range("m4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, operation:= _
      xlNone, SkipBlanks:=False, Transpose:=False
  
  Sheets("MOVINGAVGDATAFromKD").Range("L4:M4").Insert _
  shift:=xlDown
  
  Sheets("MOVINGAVGDATAFromKD").Range("i87:m87").ClearContents
  End Sub
  
   Public Sub UpdateDataClock()
   'Clock that prompts running of PasteDynamicData
   Sheets("MOVINGAVGDATAFromKD").Select
   Call PasteDynamicData
   Nexttick = Now + TimeValue("00:00:30")
   Application.OnTime Nexttick, "updatedataclock"
  
          If Time &gt;= TimeValue("16:00:00") Then
          Application.OnTime Nexttick, "updatedataclock", , False
  End If
  End Sub
  
  
  (I declared "nexttick as date" in the module).
  </code></pre>