One last thing John,

Replace the following line of code
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

with the following 3 lines of code
With wrksMain
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

Reason for the above is that the line of code on its own will work while
PlDetails is the active sheet but the replacement code will allow you to have
any sheet active and still run the code for PlDetails. Basically more
professional.

My apologies for my previous omission.

--
Regards,

OssieMac