Maybe...


Dim LastRow as long
dim TopCell as range
with worksheets("sheetnamehere")
set topcell = .range("W4") 'or however you set that variable
'I used column X to get that last row
lastrow = .cells(.rows.count,"X").end(xlup).row
.range(topcell,.cells(lastrow,topcell.column)).fil ldown
end with




DanaK wrote:

Duke - How can I do the same where W4 will always be variable. I've based the
formula to find last active cell using another row, but I'm not sure how to
make the formula in the last active cell to copy to the end last active cell
based on the other row.
--
DanaK

"Duke Carey" wrote:

instead of

Selection.Copy
Range("W4: ? ").Select
ActiveSheet.Paste

try

range("W4:W"&i).filldown


"Acct Supr - DCTC" wrote:

I need to copy a formula (that a macro has entered at W3 & X3) down to the
last row for that particuliar wk. I've figured out how to get the number of
rows for that wk( in this case i=93, i will change for each wk) but can't
figure out the syntax for the Range:

Selection.Copy
Range("W4: ? ").Select
ActiveSheet.Paste

--

Dave Peterson