title: Changing VBA (included) to select only a few columns and change where it pastes data on worksheet
body: <p>Its been years from the last time i have spent time with VBA.  I am working to dust off a bit that i had done in the past.</p>
  <p>I would like to make the following changes and have been unsuccessful without errors and wondering if someone could point me in the right direction:</p>
  <p>Changes:</p>
  <ul>
  <li>Looking to copy only a few columns from the &quot;Properties_Database&quot; worksheet ... Ex: Column A, D and G</li>
  <li>I would like to always paste this data into A2 (its a table on the worksheet that is a template) Right now, it will paste below the table (or whatever is the last row that had data in it)</li>
  </ul>
  <pre><code>Sub CopyFromChk()
      Dim wsRng As Range, i As Long
      Application.ScreenUpdating = False
      
      Set wsRng = Sheets(&quot;Properties_Database&quot;).Range(&quot;A1:A&quot; &amp; Sheets(&quot;Properties_Database&quot;).Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row)
      For i = 1 To ThisWorkbook.Worksheets.Count
          If Worksheets(i).Name &lt;&gt; &quot;Properties_Database&quot; Then
              With Worksheets(i)
                  With .Range(&quot;A1&quot;, .Cells(.Cells(.Rows.Count, &quot;A&quot;).End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column))
                      If .Rows.Count &gt; 1 Then
                          .Offset(1).Resize(.Rows.Count - 1).ClearContents
                      End If
                  End With
              End With
      
              With wsRng
                  .AutoFilter 1, Worksheets(i).Name
                  On Error Resume Next
                  .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Copy _
                      Worksheets(i).Range(&quot;A&quot; &amp; Worksheets(i).Rows.Count).End(xlUp).Offset(1)
                  On Error GoTo 0
              End With
          End If
      Next
      
      wsRng.AutoFilter
      Application.ScreenUpdating = True
  End Sub
  </code></pre>