copy range to first blank row in an existing spreadsheet

[fitchic77]

I have am a newbie, so excuse the simplicity. I need to copy a range I've created in Excel to the first blank row available in an Master.xls.

Any help or hints would be greatly appreciated.
THANKS!!
Andrea

 

[ilses]

Hello Andrea,

Try the following. To test for the destination row you could use a MsgBox (commented out here). You will of course have to replace the Worksheet("Name&quot with the specification for your sheets and workbooks. ActiveCell.CurrentRange will have to be replaced with the range you wish to copy.

Sub CopyToTarget()

Dim lngDestRow As Long

lngDestRow = Worksheets("Target&quot.Cells(65536, 2).End(xlUp).Row + 2

'MsgBox lngDestRow

With Worksheets("Source&quot
ActiveCell.CurrentRegion.Copy Destination:=Worksheets("Target&quot.Cells(lngDestRow, 1)
End With

End Sub


IS