Range(Selection, Selection.End(xlDown)).Select

[BeckyCPY]

Hi, i have encountered a problem to select the columns from B4:E4 to P4:T4. Below is my intial code but it does not work.

Union(Range("B4:E4"), Range("P4:T4")).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 'P
Call uidoc.Paste


Please help!!! I need to use Range(Selection, Selection.End(xlDown)).Select method.

 

[Yongle]

Call uidoc.Paste

What exactly is above line supposed to be doing?
What is uidoc?
Is it a procedure? If it is, please post it

 

[BeckyCPY]

Hi, just ingore the Call unidoc.Paste.

Basically, I want to select different column values (B4:E4 & P4:T4) and use Range(Selection, Selection.End(xlDown)).Select and then copy the selected range. Yet, i got stuck in selecting those columns.

 

[BeckyCPY]

Using the autofilter in the begining as below:

Sheets("Accrued book position").Select
Worksheets("Accrued book position").Select
ActiveSheet.Range("$A$4:$T$4").AutoFilter Field:=2, Criteria1:=Array("Bond", "Frn", "Total"), Operator:=xlFilterValues


Range("B4:O4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 'P
Call uidoc.Paste

Range("B4:E4,P4:T4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 'P
Call uidoc.Paste

 

[Yongle]

You are confusing me
- let's go back to the original post
- we can deal with anything else after answering your 1st question

Does the message box return the correct range?

    Dim rng As Range
    Set rng = Range("B4", Range("B" & Rows.Count).End(xlUp))
    Set rng = Union(rng.Resize(, 4), rng.Offset(, 14).Resize(, 5))
    MsgBox rng.Address(0, 0)