title: Copy & Paste multiple cells & rows in VBA excel
body: <p>I have to copy multiple rows in VBA excel repeatedly.</p>
  
  <p>Does anyone knows some shorter solution how to make this?</p>
  
  <p>My current solution looks like this:</p>
  
  <pre><code>'Select row with sun altitude values
  Range("A11:A277").Select
  Selection.Copy
  Range("EE11:EE277").PasteSpecial xlPasteValues
  'Select row 11
  Range("B11:EB11").Copy
  Range("EF11").PasteSpecial xlPasteValues
  Range("EF37").PasteSpecial xlPasteValues
  Range("EF41").PasteSpecial xlPasteValues
  Range("EF71").PasteSpecial xlPasteValues
  Range("EF101").PasteSpecial xlPasteValues
  Range("EF131").PasteSpecial xlPasteValues
  Range("EF161").PasteSpecial xlPasteValues
  Range("EF191").PasteSpecial xlPasteValues
  Range("EF221").PasteSpecial xlPasteValues
  Range("EF251").PasteSpecial xlPasteValues
  'Select column B and paste in every next columns
  Range("B11:B277").Select
  Selection.Copy
  Range("EF11").PasteSpecial xlPasteValues
  Range("FU11").PasteSpecial xlPasteValues
  Range("FX11").PasteSpecial xlPasteValues
  Range("HM11").PasteSpecial xlPasteValues
  Range("HQ11").PasteSpecial xlPasteValues
  Range("JF11").PasteSpecial xlPasteValues
  </code></pre>
  
  <p>In general I have to copy 10 the same rows and at least 6 the same columns.
  The <strong>exact distance between every row is 30 interspersed in every 26</strong>, as per above and in the picture attached.
  I have seen previous solution for copy multiple cells in VBA provided, however it refers more for issues with external workbooks.</p>
  
  <p>Thanks &amp; regards,<a href="https://i.stack.imgur.com/W826h.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/W826h.jpg" alt="enter image description here"></a></p>