I've monkeyed with this, too... got the solution by recording what I
would do on the sheet to make this happen...

This should work for you

Range("A3:S3").Select
Range(Selection, Selection.End(xlDown)).Select

Note: This will only work when the data in column A is continuous to
the end of the series (i.e., there are no blank cells between A3 and
the last cell in column A with data).

Hope that helps!