Select rows with data in column A5 down then resize to 11 columns along (K)

Hello all,

I am stuck on this which i think should be quite easy but i cant work it out. I need to select cells in coumn A from A5 down where cells are not blank, then resize the selection to column K. The below code runs fine but does not select anything. Any help would be wonderful. Thank you.

Code:

---

With ShipmentTimelinessWeekPrevious.Sheets("Data")
Dim RowHeight As Range
Set RowHeight = .Range("a5", Range("a5").End(xlDown))
.Range("A5").Select
Selection.Resize(RowHeight, 11).Select
End With

---

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.eileenslounge.com/viewtopic.php?f=44&t=40455&p=313035#p313035
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312889#p312889
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312886#p312886
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312752#p312752
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312734#p312734
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312727#p312727
https://www.eileenslounge.com/viewtopic.php?f=18&t=40411&p=312724#p312724
https://www.eileenslounge.com/viewtopic.php?f=44&t=40374&p=312535#p312535
https://www.eileenslounge.com/viewtopic.php?p=312533#p312533
https://www.eileenslounge.com/viewtopic.php?f=44&t=40373&p=312499#p312499
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg. 9xhyRrsUUOM9xpn-GDkL3o
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=UgzlC5LBazG6SMDP4nl4AaABAg
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=UgzlC5LBazG6SMDP4nl4AaABAg. 9zYoeePv8sZ9zYqog9KZ5B
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg. 9xhyRrsUUOM9zYlZPKdOpm
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Hi, All sorted. Think the problem was i was trying to resize the selection rather than the current range.

Code:

---

With ShipmentTimelinessWeekPrevious.Sheets("Data")
Dim RowHeight As Range
Set RowHeight = Range(Range("A5"), Range("A5").End(xlDown))
    RowHeight.Resize(, RowHeight.Columns.Count + 10).Select

---

Code:

---

Range(Cells(5,1), Cells(Rows.Count, "A").End(xlUp)).Resize(,11).Select

---

This should replace the two lines of code. Select is very seldom needed and you should see if you can adapt the code.
Using xlDown could be dangerous if there is a blank cell in the range.