title: Copy range to next free row in a different sheet
body: <p>I need to copy a range (Sheet2 B2:S2), paste it on the same sheet on the first free row after row 7, paste the same data to the first empty row on Sheet1 and then clear the contents of the original range (Sheet2 B2:S2) ready for the next entry.</p>
  
  <p>I have tried to use other posts but I can't figure out what to do.</p>
  
  <p>Here is the macro that does the easy bit</p>
  
  <pre><code> Sub Macro2()
  '
  ' Macro2 Macro
  '
  
  '
      Sheets("Sheet2").Select
      Range("B2:S2").Select
      Selection.Copy
      Range("B7").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Sheets("Sheet1").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Sheets("Sheet2").Select
      Range("B2:S2").Select
      Application.CutCopyMode = False
      Selection.ClearContents
  End Sub
  </code></pre>
  
  <p>It pastes over the last line. I need it to find the next free line when pasting.</p>