You could try this.
Code:
Set rngData = Range(Range("A4"), Range("A4").End(xlDown).Offset(-1)).Resize(, 3)
rngData.Select
A couple of points though.
1 You shouldn't need to use Select.
2 Determining the no of rows of data is normally better done by starting at the bottom not the top, ie using xlUp.