Excel VBA to Select Multiple Range of Cells while in Filter Mode

Hi Everyone,

I have this attached file, where Column G is filtered for certain Company.
What I am trying to do by the VBA Codes:
- Go to Cell A5,
- then offset to next visible cell down the rows,
- Select Range from Active Cell Selection.End(xlDown),

I kind of managed until those steps,
but I also need to select the Cells from Visible Row (in this case Row 29) Column - O, Selection.End(xlDown).Offset(0,4)
how do i do this so that I would have selected two ranges A29:A63 & O29:R63 at the same time.
Usually we do this by using ctrl manually selecting two ranges.
Any help is appreciated.

No I am not looking for first 5 visible cells, rather I am looking to select all visible cells under the Current Filter (without the Header Row).
The selection should be only in Columns A, O, P, Q & R

yes, I ended up using the Below Codes but like to have a professional one written if possible:

Dim X_TBAY As Integer
Dim Y_TBAY As String
Dim Z_TBAY As String
Range("A5").Select
Do
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.EntireRow.Hidden = True
X_TBAY = ActiveCell.Row
Range(Selection, Selection.End(xlDown)).Select
Y_TBAY = Selection.Address
Range("O" & X_TBAY).Select
Range(Selection, Selection.End(xlDown).Offset(0, 3)).Select
Z_TBAY = Selection.Address
Application.Union(Range(Y_TBAY), Range(Z_TBAY)).Select

Sorry about that:

Please Login or Register  to view this content.

wow that works like a charm
I am just beginner in VBA, so I don't understand much from that.
Thanks Anyway for your time and replies.