Copy Until Blank

  • Here is the code i am using:

    Code
    Worksheets("Costpercust").Select
        Range("S:Y").Select
        Selection.Copy
        Sheets("Report2").Select
        Range("A19").Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=True, Transpose:=False


    Basically S:Y is where data is advanced filtered, so i cannot pick a specific row size e.g. S1:Y2000


    I want to copy data in columns S:Y until blank and then paste it A19 on another worksheet. The problem is i cant copy S:Y and paste it at A19 only at A1 i can paste it. Help would be much appreciated

  • Re: Copy Until Blank


    You say the data is advanced filtered?


    Is that done in the code?


    If it is why not just copy the data using the advanced filter.


    Manually you can only copy with advanced filter to the same sheet but in code you can copy to another worksheet.

  • Re: Copy Until Blank


    Ummmm try this. i assume you have a blank space before and after the columns...


Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!