VBA Only Copying to First Cell After a Blank Cell

[BrittKnee]

Hi! I am hitting a snag in a macro I have written where certain fields are being copied and pasted into a new tab. The code works fine if there are no blank cells in the field, but if there are it will only copy to the first record after the blank cell. For instance, if the first cell after the header is blank and the 2nd is not, then it will copy and first cell (blank) and the second cell, but will not continue the selection to the rest of the field. Below is a sample of the code I am using. I'm sure this is any easy fix, but I just can't figure it out. Any and all help is appreciated

Range("Table1[[#Headers],[CUST_REF_NUM4]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ws2.Select
    Range("A1").Select
    ActiveSheet.Paste

 

[Fluff]

Try replacing all that code with

Range("Table1[CUST_REF_NUM4]").Copy ws2.Range("A1")

 

[BrittKnee]

Thanks! This worked, except it didn't copy the header. This works, but is there a cleaner way to code it?

Range("Table1[[#Headers],[CUST_REF_NUM4]]").Copy 
ws2.Range("A1")
Range("Table1[CUST_REF_NUM4]").Copy 
ws2.Range("A2")

 

[Fluff]

How about

Range("Table1[[#All],[CUST_REF_NUM4]]").Copy ws2.Range("A1")

 

[BrittKnee]

Perfect! TY

 

[Fluff]

You're welcome & thanks for the feedback.