You could use the special cell xlEnd that will allow you to set a
variable that is the end cell (same as pressing ctrl + end) then you can
add +1 to make sure you are one row below.



Johann wrote:

Hi,

rows and columns are vary since the webquery copies many
lines to the Data sheet. The data sheet keeps a
historical record of what the webquery returns. I want
to have the macro paste values in the last non blank
cells in Data


-----Original Message-----
Johann


row named DayColumn ? Row ? Column ??

Anyway ...

Dim LastRow As Long
Range("B65536").End(xlUp).Offset(1,0).Row

Regards

Trevor


"johann" wrote in

message

...

I have a macro which refresh a web query in sheet

Quotes,

and copy/paste these values in Data. how would you
suggest a better way to have macro paste values in the
last non-blank cell? I am using a row named DayColumn
(B2) to tell macro what column to paste values.

Thanks


.