Copy row2 cells down to last cell where the whole row isn't all blank

  • Thread starter Thread starter alienscript
  • Start date Start date
A

alienscript

Hi Colo,

I tried to run your code to copy formula in cell K2 (I place the cursor
on cell K2) down to last cell in column K, it doesn't copy down the
formula.

Is there anything missing from the code ?
Please help and thanks very much!



Sub Cell2CopyToEnd()

Dim col As Long
col = ActiveCell.column
Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp)).Formula = _
Cells(2, col).Formula

End Sub
 
I put a value in K99 (so the macro knew when to quit) and I put a formula in K2.

With K2 selected, I ran the code and it worked fine.

The code does use the fact that there's something in column K to determine the
last row. Does your data fit that?
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Need macro to move to first blank cell in column 6
MACRO PASTE CELL to COLUMN, SKIP ROWS 1
MACRO COLUMNS, SKIP ROWS 6
alter code to apply to range (links cells w/ row insertions) 1
is Retrieving a Cell address from a cell containing a SUMPRODUCTformula a problem ? 5
HELP!!! I need macro to autofill 4
Select first empty row in a column 9

Back
Top