Find the row number of the first cell entry in a column

When I do a sort with a macro key, I always get a number of blank rows above the first row with any data. I would like to automatically determine how many rows there are until my first row of data and then delete these rows automatically by editing the VBA code of my sort macro Sub.

I have be trying something like row(3,cell(value,$a$1)) and then deleting these rows where $a$1 is where I am trying to calculate where that first data row is, but it is not working consistantly.

My sort range will also give me a large number of blank rows after the rows of data are sorted together which is adding to the complexity for me.

Any ideas would be greatly appreciated.

I think your spreadsheet design needs looking at. Can you attach a small zipped example workbook with your curent layout & code?