set rng = Range(Cells(1,1),Cells(rows.count,1).End(xlup))

will define a rng reference to the range of used cells in column A

lastrow = Cells(rows.count,1).End(xlup).Row

will get the row number of the last used cell in column A

--
Regards,
Tom Ogilvy

"Fred Gibson" wrote in message
...
Hi,

I am designing a spreadsheet for my company however my
experience in excel is extremely limited.

What i will need to do is copy and paste data from a
microsoft word table into an excel spreadsheet. The
spreadsheet has various formulas that don't apply
directly to the copied data but the number of rows is
unknown so i need the formulas to only be copied where
there is data. I also need subtotal columns to move and
apply to one row after the last bit of data.

Any help would be much appreciated as i completely stuck.

Please email me on

Regards

Fred Gibson