title: Macro for copying random cells and pasting+transponing to random cells
body: <p>I've searched everywhere and just can't get it running. I'm fairly new(b) to VBA, so if it's possible i would be very happy with some tips or help.</p>
  
  <p>So my recorded macro is this:</p>
  
  <pre><code>Range("C133:C134").Select
  Selection.Copy
  Sheets("AVGs").Select
  Range("C28").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=True
  </code></pre>
  
  <p>My goal is to select and copy random cells and the pastespecial them in random cells on different worksheets.</p>
  
  <p>I got this far:</p>
  
  <pre><code>Selection.Copy
  Sheets("AVGs").Select
  
  
  Set x = Application.InputBox(prompt:="Click in the column to copy to", Type:=8)
  Range("x").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
  </code></pre>
  
  <p>But i just get and error and debugger shows error in <code>Range("x").Select</code> .....</p>