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

[jolivanes]

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.