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]

Remove the word Set.
You only "Set" objects, not numbers/strings etc

 

[Peter_SSs]

<del>Set</del> LastRowText = PPDR.Cells(Rows.Count, "P").End(xlUp).Row

 

[SAMCRO2014]

Thanks! I tried that before and it did not work but this time it did!!

 

[Peter_SSs]

Thanks! I tried that before and it did not work but this time it did!!

Cheers. Glad it is okay now.

 

[SAMCRO2014]

Now I am running into another error. I am trying to copy and paste all the cells that contain text in column P to column M and it is not liking me using the LastRowText.

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

 

[Fluff]

Try

Range("P2:P" & LastRowText).Copy PPDR.Range("M2")

 

[SAMCRO2014]

You are so awesome!!!! I won't bug you anymore today!!!!

 

[Fluff]

You're welcome

 

[SAMCRO2014]

Actually it did not work. It selected all of column P and pasted it in Column M. The coding over wrote information in column M when it should not.