last non-blank

[johann]

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

 

[Trevor Shuttleworth]

Johann

row named DayColumn ? Row ? Column ??

Anyway ...

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

Regards

Trevor

 

[Johann]

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

 

[Heath]

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.