Copy table Column data using a Macro

sg1990

New Member
Joined
May 26, 2016
Messages
6
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.

Code:
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

Board Regular
Joined
Sep 15, 2011
Messages
162
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

New Member
Joined
May 26, 2016
Messages
6
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.
 

Forum statistics

Threads
1,081,528
Messages
5,359,299
Members
400,524
Latest member
Excelbat

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top