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

[xander1981]

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

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