title: Excel VBA, paste special :- extended
body: <p>A follow on from my last question.</p>
  
  <p>I have working code :- </p>
  
  <pre><code>Sub copy()
  Sheets("Sheet1").Range("A19:B19").copy
  Sheets("Sheet2").Range("A" &amp; Rows.Count).End(xlUp).Offset(4, 0).PasteSpecial Paste:=xlPasteValues
  End Sub
  </code></pre>
  
  <p>and learned a lot more on VBA and kinda fun to use in excel aha.
  question is this</p>
  
  <p>In sheet1 I have added to the range, Cell style "good" and some vlookups to help with data pull back from different places within the workbook, when testing the above code, it copies the cells but also copies the vlookup, which return nothing.</p>
  
  <p>Now I have tested it with the macro recorder, and it brings back with </p>
  
  <pre><code>Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
          , SkipBlanks:=False, Transpose:=False
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
  </code></pre>
  
  <p>the above does what I want it to do, but need some help to clean it up and make it work with the code which I already made.</p>
  
  <p>can you point me in the right direction?</p>