Hi Partegolfer,

I need to find the last row of worksheet A and use this as range for
worksheet B. Workshhet A can change row count so I need B to canhange
as well

Dim LRow As Long
Dim rng As Range


LRow = Sheets("A").Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Sheets("B").Range("A10:A" & LRow)


---
Regards,
Norman



"parteegolfer"
wrote in message
...

I need to find the last row of worksheet A and use this as range for
worksheet B. Workshhet A can change row count so I need B to canhange
as well

Example:


VBA:
Range("A10").Select
Selection.Copy
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF('Recap Report'!R[-3]C2="""","""",'Recap Report'!R[-3]C2)"
Selection.Copy
Range("A10:A56").Select << I Need this value To be As many rows As In
worksheet(Recap Report)
ActiveSheet.Paste

Any Suggestions?


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=527414