Copy table Column data using a Macro

[sg1990]

Is anyone able to assist in copying a the data of a table column only. I have a macro which runs a bunch of filters and from there I would like to copy and paste the column data only (no headers)

I specifically need help with copying and pasting the data.

Sub CopyData()
   
      With Sheets("Sheet1")
      
      ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:="Test"
      
      Set Rng = .Range("A1:A") & .Range("A" & .Rows.Count).End(xlup).Row).SpecialCells(xlCellTypeVisible)
      Rng.Copy Sheets("Sheet2").Cells(1, 1)
      
      End With


End Sub

 

[Sandler]

Just column A? Can't you just record the macro that starts at A2 and goes down via Ctrl+Shift+Down, Copy, and Paste to where you want it to go?

 

[sg1990]

Just column A? Can't you just record the macro that starts at A2 and goes down via Ctrl+Shift+Down, Copy, and Paste to where you want it to go?

Unfortunately, that will not work as the record in A2 might be filtered. I need to do it as range that selects down and copy that selection to my desired target.