Object Required Error - Finding Last Row in Column

[SAMCRO2014]

Hi,

I cannot determine why I am getting the error "Object required" for the following coding for LastRowText:

Set variables
Dim PPDR As Worksheet
Set PPDR = ThisWorkbook.Sheets("PPDR")

Dim SPS As Worksheet
Set SPS = ThisWorkbook.Sheets("SPS+")

Dim Data As Worksheet
Set Data = ThisWorkbook.Sheets("Data")

Dim LastRowText As Long
Set LastRowText = PPDR.Cells(Rows.Count, "P").End(xlUp).Row

I am trying to determine the last row of cells that contain data in column P for worksheet PPDR.
HELP!!

 

[Fluff]

In that case it did work
That's what that line of code is meant to do.

 

[Peter_SSs]

The coding over wrote information in column M when it should not.

That is also what your code would have done if it had worked since it was also trying to Paste starting at M2.

Range("P2:LastRowText").Copy_destination = PPDR.Range("M2")

Did you mean for it to be pasted below the existing data in column M?

PPDR.Range("P2:P" & LastRowText).Copy Destination:=PPDR.Range("M" & PPDR.Rows.Count).End(xlUp).Offset(1)

 

[SAMCRO2014]

Yes. Thanks for your help!

 

[Peter_SSs]

Yes. Thanks for your help!

You're welcome.