title: Paste copied lists at the very end of a row
body: <p>At the moment I’m only able to copy&amp;paste stuff from one row.</p>
  
  <p>I use the code below:</p>
  
  <pre><code>        Dim lastRow As Long
  
      With Sheets("Tab1")
          If Application.WorksheetFunction.CountA(.Columns(3)) &lt;&gt; 0 Then
              lastRow = .Cells(Rows.Count, "C").End(xlUp).Row + 1
          Else
              lastRow = 1
          End If
  
          Sheets("Tabelle2").Range("B85:S85").copy
  
          .Range("C" &amp; lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      End With
  </code></pre>
  
  <p>My problem is that I need to copy and paste lists.  Can someone show me how to use this code to copy&amp;paste lists?</p>
  
  <blockquote>
    <p>I wanted to copy more rows, like <code>(A25:S25, A27:S27, A30:S30)</code></p>
    
    <p>It should copy always the same rows.</p>
  </blockquote>