I am trying to copy result from a pivot table to one worksheet. The
worksheet that I have to copy data to already have existing data in it.


I have the Macro below but just have the code to copy the values from
the pivot table to the worksheet but don't know how to look for the
last empty row to append the data to.

Would any of you please help me to find the first emty cell on Sheet2
before I can copy data to it?

Thanks!

******************************************
Sub Auto_Open()
Dim FilterRange As Range

Range("A42:G56").Copy
Worksheets("Sheet2").Range("This need to be the first empty
rcell").PasteSpecial Paste:=xlPasteValues

End Sub


--
Excel_Newbie
------------------------------------------------------------------------
Excel_Newbie's Profile: http://www.excelforum.com/member.php...o&userid=28861
View this thread: http://www.excelforum.com/showthread...hreadid=486417

oh yay! a question I can answer! *is excited*

Do While ActiveCell <> ""
N = N + 1
ActiveCell.Offset(1, 0).Select
Loop

This will give you the number it takes ot get to an empty cell. =)


--
cliodne
------------------------------------------------------------------------
cliodne's Profile: http://www.excelforum.com/member.php...o&userid=28774
View this thread: http://www.excelforum.com/showthread...hreadid=486417

Sub Auto_Open()
Dim FilterRange As Range

Range("A42:G56").Copy
Worksheets("Sheet2").Range("A1").End(xlDown).PasteSpecial
Paste:=xlPasteValues

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Excel_Newbie" <(E-Mail Removed)>
wrote in message
news:(E-Mail Removed)...
>
> I am trying to copy result from a pivot table to one worksheet. The
> worksheet that I have to copy data to already have existing data in it.
>
>
> I have the Macro below but just have the code to copy the values from
> the pivot table to the worksheet but don't know how to look for the
> last empty row to append the data to.
>
> Would any of you please help me to find the first emty cell on Sheet2
> before I can copy data to it?
>
> Thanks!
>
> ******************************************
> Sub Auto_Open()
> Dim FilterRange As Range
>
> Range("A42:G56").Copy
> Worksheets("Sheet2").Range("This need to be the first empty
> rcell").PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
>
> --
> Excel_Newbie
> ------------------------------------------------------------------------
> Excel_Newbie's Profile:
http://www.excelforum.com/member.php...o&userid=28861
> View this thread: http://www.excelforum.com/showthread...hreadid=486417
>

Consider
Private Sub Workbook_Open()
instead of
Auto_Open
Both serve same purpose but Auto_Open is an older of VB
Lou

"Bob Phillips" wrote:

> Sub Auto_Open()
> Dim FilterRange As Range
>
> Range("A42:G56").Copy
> Worksheets("Sheet2").Range("A1").End(xlDown).PasteSpecial
> Paste:=xlPasteValues
>
> End Sub
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Excel_Newbie" <(E-Mail Removed)>
> wrote in message
> news:(E-Mail Removed)...
> >
> > I am trying to copy result from a pivot table to one worksheet. The
> > worksheet that I have to copy data to already have existing data in it.
> >
> >
> > I have the Macro below but just have the code to copy the values from
> > the pivot table to the worksheet but don't know how to look for the
> > last empty row to append the data to.
> >
> > Would any of you please help me to find the first emty cell on Sheet2
> > before I can copy data to it?
> >
> > Thanks!
> >
> > ******************************************
> > Sub Auto_Open()
> > Dim FilterRange As Range
> >
> > Range("A42:G56").Copy
> > Worksheets("Sheet2").Range("This need to be the first empty
> > rcell").PasteSpecial Paste:=xlPasteValues
> >
> > End Sub
> >
> >
> > --
> > Excel_Newbie
> > ------------------------------------------------------------------------
> > Excel_Newbie's Profile:
> http://www.excelforum.com/member.php...o&userid=28861
> > View this thread: http://www.excelforum.com/showthread...hreadid=486417
> >
>
>
>