VBA - Select: current cell + next 19 cells (down in column) = rang

[Chris T-M]

I have a variable cell location I am finding using the following:

'Find 'Released' Header Row
Dim CrntF As Range
Set CrntF = Range("F49")

Do Until ActiveCell = "RELEASED"
On Error Resume Next

CrntF.Select
Set CrntF = ActiveCell.Offset(1, 0)
Loop

'Move down to 1st project, and over to Title
CrntF.Offset(1, 8).Select

This selects the correct starting cell, but I need to copy this cell & the
next 19 cells below it.

I hope this is simple. Thanks in advance for any help.

 

[Gary Keramidas]

not sure what you want, but you can try this (untested)

CrntF.Offset(1, 8).resize(19).Select

 

[mudraker]

Try this version

Dim CrntF As Range

Set CrntF = Range("f49:f" & Rows.Count).Find(what:="RELEASED")
If Not CrntF Is Nothing Then
CrntF.Offset(2, 8).Resize(19).Select
End I