Paste defined variable into cell range

[Metrazal]

I use the following code to copy and paste cells into a cell range:

Please Login or Register  to view this content.

I would like to paste a variable into the range instead of the data contained in cells (A9, A10, A11, etc.) but based on the number of rows containing data.

Example if cells (A9, A10, & A11) contain data & A12 is blank. My variable will be pasted into the active cells (C1,C2, & C3). It will also be able to handle a single cell of data, like the above code. Using the previous example, if data is contained only in cell A9 then my variable will be pasted in C1.

Any help would be appreciated.


Thanks,

Met

[Bernie Deitrick]

Please Login or Register  to view this content.

[Metrazal]

Bernie,

Thanks for your response. The above code works perfectly. How would you apply this to the activecell as opposed to C1?


Thanks,

Met

[Metrazal]

Bernie,

Disregard the previous post. I figured out my problem. (Hit a . instead of a ,) Following is what I used.

Please Login or Register  to view this content.

Thanks again for your help,

Met

[Bernie Deitrick]

Actually, that all simplifies to just

ActiveCell.Resize(lastrow - 8).Value = varName